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I. INTRODUCTION 


A. BACKGROUND 

The primary mission of the U.S. Marine Corps is to defend the U.S. and its 
interests. In order to accomplish this mission, the Marine Corps established a 
personnel structure that organizes people into various sized combat and support units. 
There are approximately 190,000 marines in the Marine Corps, of which 20,000 are 
commissioned officers and 170,000 are enlisted. The Marine Corps has three major 
combat units known as Marine Amphibious Forces (MAF). There is one each on the 
East and West coasts, and one split between Hawaii and Japan. There is also a fourth 
MAF that is make up of marine reservists. Each MAF consists of a combat Division, 
a Force Service Support Group, and an aircraft Wing. Each of these units can be 
broken down again several times into their most elemental units. There are also 
marines stationed at bases, schools, and other posts that support the Marine Corps. 
Each of the different units require people with special and specific skills in order for 
each unit to effectively support the Marine Corps missions. Within the officer corps 
there are 168 such skills or Military Occupational Specialties (MOS). Each officer has 
a designated primary specialty and may have up to two additional specialties 
designated as additional MOS’s (AMOS’s). In addition, each officer has a designated 
rank or grade such as Lieutenant, Captain, Major, etc. 

Each unit in the Marine Corps has a Table of Organization (T/O) that specifies 
how many officers (and enlisted) are required of each MOS and grade to fully man the 
unit. These T/O’s are maintained at Headquarters Marine Corps (HQMC) in 
Washington, DC. The Manpower Management Officer Assignment Branch (MMOA) 
at HQMC is tasked with ensuring that all of the authorized officer billets in the Marine 
Corps are filled. There is also a similar branch that handles the enlisted, however, it 
will not be discussed. MMOA has two sections of officers known as monitors. Each 
monitor is responsible for billets with different sets of MOS’s and grades. For example, 
one monitor may handle Artillery and Financial Management Captains and 
Lieutenants, while another monitor may take care of Artillery and Infantry Majors. 
The monitors keep track of each of their authorized officer billets and assign officers to 


fill those billets. Historically, about seven to eight thousand officers are assigned to 
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new jobs (militarily known as billets) each year. Each billet can be specifically 
described by the command (unit) it is at, a MOS and a grade. In making assignments 
the monitors consider special command needs, career patterns of the officers, staffing 
requirements, preferences of the individual, the population of officers, the number of 
officers in each MOS, the relative priority of billets and the staffing policies in effect at 
the time. Because all of these factors do not all agree completely, it is not always 
possible for the monitor to assign an officer that exactly matches the given 
requirements for every billet. How well an officer matches the requirements of a billet 
is Known as the ‘fit’. There are also several billets, usually at support commands, that 
are not restricted to just one MOS or grade. These billets, then, may be filled by one 
of several monitors. The filling of these billets must be coordinated between those 
monitors. 

To aid the monitors in making their assignments, the Officer Staffing Goal Model 
(OSGM), a computer-based model, was developed and implemented over ten years 
ago. The purpose of the OSGM is to provide each monitor with an optimal staffing 
goal target; that is, a staffing goal with the greatest possible number of billets filled and 
the best possible fit for those officers. A staffing goal is a listing of each billet at each 
command and the description of a type of officer that can fill that billet. The OSGM 
does not attempt to consider special command needs, career patterns and individual 
Marine preferences because these change very frequently and are very difficult to model 
on a computer. Its output is therefore considered a target for the monitors to strive 
for and is used as a tool by them when making their assignments. Again, the OSGM 
has two objectives when creating staffing goals: to fill the largest number of billets 
possible and to have the best ‘fit’ for each billet filled. It is not normally feasible to fill 
all the billets that are authorized or to have the best ‘fit’ for every billet filled. The 
current OSGM takes care of this by first getting the best fill possible and then within 
that constraint finding the best fit attainable. 

There are three inputs to the OSGM: the inventory of the current Marine Corps 
officer population, the listing of all authorized billets (known as the ASR), and _ the 
‘Dictionary’--a collection of data used by the OSGM to apply current Marine Corps 
assignment policy to the model. Using these inputs, the OSGM performs several 
functions in developing the staffing goal. 

The first of these functions is the updating of the ASR. The ASR 1s generated 
three times a year. The ASR is a subset of the T/O. Again, the T/O is a listing of all 
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the personnel needed to fully complement a unit. But because of budget and 
manpower constraints, not every unit can be fully manned. Therefore, the ASR was 
established to record which billets out of the T/O are authorized. At each model run, 
all of the changes to the billet structures that have been approved by HQMC in the 
previous four months are applied to the ASR. Since the OSGM may be run more 
often than this and should be as up to date as possible in order to give the best 
possible solution, the ASR can be adjusted by the OSGM to reflect any changes in the 
authorized officer strengths that have occurred since the ASR file was generated, or 
when the authorized strength is not broken out in a manner needed by the model. The 
adjustments to the ASR can be increases or decreases to current authorizations, setting 
authorizations to specific levels, or adding new authorizations that previously did not 
exist. An example of the ASR is given in Figure 1.1. 


BMOS GRADE MCC NO. of BILLETS 


0802 03 V15 9 





Figure 1.1 Authorized Strength Report (ASR). 


In a similar manner the Inventory or officer population must also be kept up to 
date. The Inventory is reduced to reflect those first term officers who will be leaving 
active duty. These reductions are accomplished by randomly pulling officers of 
specified grades and MOS’s from the Inventory before the model is run. The grades 
and MOS’s can either be specified by major categories or by specific grade and MOS. 
The officer inventory can also be adjusted to show accessions or attritions for other 
than first term officers. Any officer type (specified by MOS, grade, experience, sex and 
additional MOS) can be increased, decreased or set to a given level. An example of the 
Inventory data is shown in Figure 1.2. 

The Dictionary is used to specify what type of officer can fill a given billet type 
at a command (this is known as the substitutions for a billet). Each officer is described 
by his primary MOS, any additional MOS’s, his grade and indicators that show the 


officer’s sex, experience level and LDO/unrestricted status. Each billet has a set of 
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PMOS GRADE AMOS AMOS MCC EXP UR SEX 


0802 03 0402 0000 MC4 1 I M 





Figure 1.2 Officer Inventory. 


similar descriptions that specify the requirements for the officer filling the billet. The 
relative priority in which billets should be filled is also specified. Using the information 
from the Dictionary, the adjusted Inventory and the adjusted ASR, the OSGM then 
finds the best fill and fit possible. The method in which the current OSGM derives the 
staffing goal will not be discussed. 


B. CURRENT ISSUES 

There are many issues today that impact the Marine Corps and the way in which 
it assigns its officers to billets. One of the most obvious to the military itself is the 
rising cost of PCS (Permanent Change of Station) moves. In this type of move the 
officer and his/her family are moved from one duty station to another. Increased cost 
and Congressional limits on PCS funds have impacted all of the services. One such 
impact is the delay of orders that have already been issued. Another impact of 
increased PCS costs is the possiblity of increased tour lengths. Current Marine Corps 
stateside tours are 36 months long. These could be increased to 48 months in order to 
decrease the number of yearly moves. Another issue now facing all of the services is 
that of joint tours. A joint tour is where a member of one Armed Service is stationed 
with another of the Armed Services. It is intended that this type of tour will improve 
inter-service operability. These billets must be established in each of the services with 
compensatory reductions elsewhere in each branch. These billets must also be handled 
by the monitors and therefore included in the OSGM. With increased public 
awareness of the cost of the military has come an increased interest on the part of 
Congress in the internal workings of each of the services (in some circles this is known 
as micromanagement). Because of this, the Marine Corps must be able to, even more 
than before, judge the impact of any proposed personnel policies before they are 


implemented. A much dreaded thing in each of the services is manpower cuts. There 
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have already been some and will probably be more. The Marine Corps must be able to 
gauge the impact of these cuts in order to see what changes to make in order to 
maintain operational readiness. Finally, the current OSGM has essentially reached its 
maximum capability. It does not have the ability at this time to adequately handle any 
of the issues just mentioned. It could be improved, but the expense would far 
outweigh the benefits. 


C. PURPOSE 

This thesis will provide MMOA-3 with a prototype design for an allocation 
model. The design is not a smooth, production design because it does not attempt to 
provide a final, fixed form of solution. Instead, it gives the user, MMOA-3, a flexible 
solver system that can be modified with relative ease. This will allow the users to 
develop the specifications for a new system with great confidence that the new system, 


based on the modified prototype model, will satisfy their requirements. 


D. THESIS ORGANIZATION 

The thesis will be organized in the following manner. The user requirements will 
be defined in the terms used by the user. A Statistical analysis will be presented with 
any impacts the results have on any of the user requirements. The proposed design 
will be detailed both at the system level and at the detailed design level. Following the 
design will be a discussion of some of the major requirements and how the design 
answers those requirements. Next, the prototype used to validate the design will be 
presented and an analysis of the results of the prototype given. Finally, the 
conclusions and recommendations derived during the development of the model will be 


discussed. A glossary of terms is provided in Appendix A. 


II. USER REQUIREMENTS 


The user requirements for the prototype were developed over a period of several 
months. The problem was initially introduced during a week long visit to MMOA-3 at 
HQMC in Washington, DC. Each of the staff at MMOA-3 was interviewed, as well as 
some of the monitors and personnel department heads. An initial problem statement 
was drafted and then presented to Major Hundley of MMOA-3 for review while at 
HQMC. During the following three months, the problem statement was further refined 
and again reviewed by Major Hundley three more times. The resulting user 
requirements are presented below. 


A. COMPUTER 

One of the first requirements of the prototype model is that it be capable of 
being run on the Marine Corps mainframe at Quantico, VA. Currently, the OSGM is 
maintained on a contractor’s mainframe in Maryland. A detailed procedure must be 
followed to transfer all of the working data files to the contractor’s mainframe so that 
a model run may be done. Since MMOA has terminals to the Quantico mainframe, 
having the prototype on the mainframe would allow easy access for running or 
modifying the prototype. Also, the cost for maintaining the system would be much 


less. 


B. WINDOW SIZE 

Another requirement for the prototype model is that it have a variable “window 
size. One of the preparations that MMOA makes when it wants to run the OSGM 1s 
to produce the latest inventory of officers. This is a listing of all Marine Corps officers 
that have at least one year of active duty service remaining. The date on which the 
program that produces the inventory of officers 1s run is called the staffing goal date. 
The ‘window’ is a period of time, beginning on the staffing goal date. Any officers 
whose current tours of duty end any time within the window are eligible to move and 
are called ‘movers’. The movers are the officers that will be assigned to new billets by 
the monitors. Any officers whose tours of duty end before or after the window are not 


eligible to move and are called ‘non-movers’. In the current OSGM the window 1s 


fixed at one year. However, the desire is to have a variable window size. For example, 
the window could be as small as one month or as large as three or four years. If the 
window were one month, the set of movers would be very small, while the set of 
nonmovers would be very large. If the window were over three years, essentially the 


entire officer corps would be classified as movers. 


C. COST FACTORS 

A third requirement for the prototype design is that it incorporate various ‘cost 
factors’. In the current OSGM, there are two measures of effectiveness used to gauge 
the performance of a model run. The first is the number of billets that are filled by the 
model. Obviously, if the model fills a low percentage of billets, the results will not be 
very useful. Even though the measure is expressed in the number of people, it is 
usually referred to as a percentage of the officers allocated. The other measure of 
effectiveness is the average, over the entire population of officers, of how well each 
officer matches or ‘fits’ the billet he is allocated to. As mentioned previously, in a 
normal run not all of the billets can be filled and the degree of fit is usually not the 
maximum. There must, then, be a tradeoff between the two. Another factor that can 
be used to gauge the performance of a model run is a total PCS cost. This factor is 
not supported on the current OSGM. It is, however, an important piece of 
information when considering budget cuts and congressional inquiries. The total PCS 
cost for a model run is calculated by summing up the estimated PCS cost for each 
mover. This estimate is based on the mover’s current command location and the 
location of his/her allocated command that he/she may move to. The estimate may be 
continually refined by updating the data from (recent) historical records. The PCS cost 
may just ‘tag along’ as an extra piece of data in the model solution and be summed up 
after the solution or it may be used as a criteria by the solver routine when matching 
officers to billets. A listing of the cost factors and their descriptions are given in Figure 
2 


D. CRITERIA 

There are currently seven criteria used to describe each officer in the inventory 
and each billet listed in the ASR. The criteria are: primary MOS (PMOS), grade, two 
additional MOS’s (AMOS), an experience marker, a use restriction marker that 
indicates whether the person/billet is an unrestricted officer/billet or an Limited Duty 


Officer (LDO) officer/billet, and a sex marker. Figure 2.2 shows the criteria with 


FACTOR DESCRIPTION 
Fill Actual number of billets filled 
Fit 1: Best fit 


5: Worst fit 


PCS SO : Nonmover 
SO - Max: Mover 





Figure 2.1 Cost Factors. 


examples of each. All of these must have a valid value and are used in matching the 
officers to billets. The final requirement is that the prototype design facilitate new 
criteria being added and used in the matching process, also that the design allow the 
optional removal of one or more criteria from consideration for matching on any given 
model run. An example of a new criteria that might be incorporated in the model is a 
joint MOS (JMOS) designator given to officers who qualify for joint tours and to 
billets that require an officer with such a designator. It is also possible for experience, 
use restriction or sex markers to be selectively removed from consideration so that the 
impact they play on the matching of officers to billets could be studied. The same tvpe 
of logic could be applied to any new criteria that are added at a later date. 


CRITERIA EXAMPLE 

PMOS 0802 - Artillery, 0302 - Infantry 

Grade O2 - Lieutenant, O3 - Captain 

AMOS 9646 - Computer Science, 0402 - Logistics 
Use Restriction 1-LDO, 2 - Unrestricted 


Experience 0 - No experience, 1 - Experience 
Sex M - Male, F - Female 





Figure 2.2. Matching Criteria. 
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E. MISCELLANEOUS 

Although no formal time constraints were given for the model run time, MMOA 
desired that the prototype be as efficient as possible. It 1s anticipated that the 
prototype may be run frequently as new aspects of the allocation problem are modeled 
using the prototype. A desire (that was not given as a requirement) was that the 
prototype use the data currently used by the OSGM as input, in the same format, so 
that duplicate forms of data would not have to be maintained. 
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III. DATA ANALYSIS 


Ae SCOPE 

The statistical analysis presented here is a simple study of the personnel and billet 
data, intended to discover the character and properties of the data. It is not intended 
to be a detailed, complex analysis checking for correlations between data elements, etc. 
The knowledge derived through this analysis enhances the understanding of the 
problem and permits greater insight into possible solutions. | 


B. ANALYSIS 

The analysis will cover several different data sets, all of which are directly used in 
the allocation problem. First, a breakdown of different attributes of the inventory of 
officers will be shown, then the division of officers among grades. The various sources 
of billets will be given, followed by a listing of the number of billets assigned to each 
staffing precedence level (SPL). The next two tables show the breakdown of the E] 
and E2 ‘cards’ from the dictionary. Finally, the number of officers in each of the 
officer type categories will be presented. 

1. Inventory 

Within the inventory of officers, several different groupings occur. The ones 

shown in Table | are by MOS, use restriction, experience and sex. Just over half of 
the officers in the Marine Corps have only a PMOS. Fewer still have one AMOS and 
two AMOS’s. An analysis presented later will show how many types of billets require 
no, one, or two AMOS’s. This is important because those officers with one or two 
AMOS’s are qualified to fill billets that do not ask for an AMOS, and if pulled to fill 
such billets may leave other, more specialized billets vacant. The Limited Duty 
Officers constitute a small percentage of the officer corps and should, therefore, 
represent a small part of the entire allocation problem. Over half of the officers are 
designated- to be experienced. Whether or not an officer is considered to be 
experienced depends on his/her rank, number of vears in their MOS, and other factors. 
Finally, the male/female split is given. 

2. Grade 

As can be seen in Table 2, the greatest bulk (over half) of the officer corps are 


Lieutenants and Captains. This follows directly from the pyramid-shaped organization 
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INVENTORY 
Total Officers on Active Duty 20050 
Officers with PMOS only 11543 S70 70 
Officers with PMOS, one AMOS 4986 24.9 
Officers with PMOS, two AMOS 3521 17.6 
Unrestricted Officers 18785 93.7% 
Limited Duty Officers 1265 6.3 
Officers with Experience 11290 56.3% 
Officers with no Experience 8760 43.7 
Male Officers 19392 96.7% 


Female Officers 658 





of the Marine Corps. The Warrant Officers serve in specialized billets, for the most 
part, and are all prior enlisted. The general officers are not presented in this data 
because they are not included in the allocation model. They are ‘monitored’ by the 
Commandant of the Marine Corps. 
3. Billet Source 
Not all of the billets filled by officers are listed in the Authorized Strength 
Report (ASR). As seen in Table 3, there are over three thousand training billets. The 
majority of these are student billets at Marine and other service commands. For 
example, approximately nine hundred of the billets are for Second Lieutenants at the 
Basic School in Quantico, VA. Others are MOS training billets at various schools. 
4. Billet Description 
The figures in Table 4 are derived from the data produced in a partial 
allocation model run. As seen in the next table, the lowest numbered Staffing 
Precedence Level (SPL) has the highest priority. The SPL is a descriptor given to 


every command or unit that indicates its relative priority for getting its billets filled. 
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TABLE 2 
OFFICER GRADES 


No. of Officers 
Warrant Officer 1628 
Lieutenant 6351 
Captain 6258 
Major 3293 
LT Colonel 1713 
Colonel 807 


TABLE 3 
BIELE Us 


Authorized Strength Report 16708 
No. of Billets 

Training ay hy, 

Nonchargeable Ope) 





The figures shown below are a function of the data given to the model and can, 
therefore, be modified. One factor that greatly affects the method of solution, but is 
not specified anywhere in the data itself, is the fact that the billets of each SPL are 
filled preemptively. In other words, all of the billets of SPL 2 that can be possibly be 
filled are filled first. The same is done for SPL’s 3, 4, and S, in turn. 
5. Command Priority 

Table 5 gives the breakdown of the number of E2 ‘cards’ by SPL. The term 
‘card’ is a holdover from the time that the data for each E2 record was actually on a 
punch card. The E2 records have two main functions. The first is to assign each billet 
or set of billets in the ASR an SPL. This can be seen in the previous table where the 
billets are divided by SPL. The second function is to tie each billet listed in the ASR 
to a set of billet descriptors (El cards). These are explained in the next paragraph. 
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TABLE 4 
SPL BILLETS 





1149 
6649 
1776 
SPs 6973 42.1 
Total 16547 100.0 


TVABCETS 
Jepaesy x )L, 


SPL 1 (Highest Priority) 


SPE 
SPL 3 
SPL 4 
SPL 5 (Lowest Priority) 





As Just mentioned, each billet is tied to a set of billet descriptors. These are 
the El cards. As seen in Table 6, there are up to five choices for each billet. There is 
a logical progression of fewer cards for each greater numbered choice. Those billets 
that have very stringent requirements will have fewer choices than those that will take 
a wide range of officers. 

The officer type is a descriptor used in the El cards. It is used for billets that 
may be filled by an officer from a set of MOS’s. This type of billet requires a general, 
rather than specific, background. Each of the officer types listed includes all grades, 
Warrant Officer through Colonel. As fitting a combat service, the ground and air 
combat officer types are the largest. Even if the figures given were reduced to reflect 
onlv a single grade, it is easily seen that any billet that specifies one or more officer 
types will have tens or hundreds of officers that are qualified to fill that billet. This 
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TABLE 6 
El PRIORITY 


PRI 1 (Ist Choice) 1019 


PRI 2 597 
PRI 3 370 
PRI 4 174 
PRI 5 (5th Choice) 40 





presents a special problem for the solution designed in this thesis, as will be seen later. 
A breakdown of the officer types given in Table 7. 


TABLE 7 
OGRIGER, [YEES 


Air/Ground Combat Support 558 
Air/Ground Service Support 555 
Ground Combat 4813 
Ground Combat Support 1172 


Ground Combat Service Support 2806 
Naval Aviator Fixed Wing 1726 
Naval Aviator Helicopter 22 0e 
Naval Aviator NFO 387 
Total 14294 





The data presented in this last table, Table 8, is a breakdown of the billet 
descriptor (El) cards. The El’s have many ‘wildcards’ that allow many options for the 
various descriptors. As can be seen for experience, use restriction, and sex, the largest 
proportion of billet descriptors are those that allow either. For MOS’s, the single 
largest category is that of the PMOS only. Relatively few billet descriptors require a 
PMOS and one or two AMOS. There are also billets that do not specify what PMOS 
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an officer must have, only that they carry a certain AMOS. There are also over four 
hundred billet types that ask for any officer within a large range of PMOS’s. The 
Occupational Field and SubOccupational Field are similar to the Officer Type, but on 
a smaller scale. These ask for an officer in a particular MOS area; for example, an 
officer in the finance/disbursing MOS field. 


TABLE 8 
BILLET DESCRIPTORS 


No Experience Required 
Experience Required 


Either Experienced or Inexperienced 


Unrestricted Officer Required 
LDO Required 
Either LDO or Unrestricted 


Male Officer Required 


Female Officer Required 


Either Male or Female 


PMOS Only Required 
PMOS and 1 AMOS 
PMOS and 2 AMOS 
AMOS and no PMOS 
Officer Type 
Occ/Sub-Occ Field 
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IV. SYSTEM DESIGN 


A. DESIGN PRINCIPLES 

Through conversations with MMOA about their requirements and through the 
study of the data used in the allocation model, several design principles were developed. 
These principles were used in the development of this design. Please note that the order 
in which the principles are presented reflects no relative priority among them. The first 
principle developed is that the model should support iteration. The model will not be 
used just occasionally, but may be used repeatedly throughout each month. The design 
should allow the user to repeatedly use the model, entering the model each time at the 
point most appropriate for the work being done. The second principle is driven by the 
relatively large data sets and the amount of computation necessary during a model run. 
Any operation should be done on the smallest data set possible. This will reduce both 
the model run time and the model run cost. The third design principle is that the 
design should be modularized, supporting easier maintenance, and future expansion or 
changes. It is much easier to modify a small module, rather than a large, monolithic 
one. There is a trade-off here in that the larger number of modules requires that some 
data be written to and read from files in order to pass the data from module to module. 
For the purposes of this prototype, however, the cost is acceptable. the last design 
principle is one that 1s hard to completely specify and that is flexibility. The word 1s 
overused and often misunderstood. In this particular instance, flexibility means the 
capability to use different officer and billet descriptors for matching purposes on 
various model runs with only a few minor code modifications. This includes the ability 
to add new, currently unknown descriptors to the model in the future. The entire 
design presented here emphasizes the functions of each module. The module 
interdependencies are simple and straightforward. Block diagrams of each level of the 
design and the system design are given in Figures 4.1 through 4.3, and Figure 4.4, 
respectively. 


B. HIGH LEVEL 
The high level design provides the model the ability to be selectively iterated. 
There are three major modules in the design. The first is the initial inventory 


preparation. All inter-module communications are accomplished using files--data files. 


AS) 


The second is the data preparation and matching module. The third and final is the 
solution and report generation module. The modules are presented in the order of 
execution. The initial inventory preparation module converts and compresses 
necessary data into formats usable by the prototype and eliminates all data no longer 
needed by the model. This reduces the amount of unnecessary processing. It also 
generates some reference data files that are used by the other modules. The data 
preparation and matching module allows the user to specify which officer/billet 
descriptors will be used in matching officers to billets, and then performs the matching. 
Once the first module has been run, the second module may be run and rerun many 
times, without having to reexecute the first module again. The output of the second 
module is a listing of all possible matches of officers to billets. The solution and report 
generation module takes this data, prepares it for the solver, solves the allocation 


problem and then generates the requested reports. 


ALLOCATE 


INITAL DATA 
INVENTORY PREPARATION/ 


PREPARATION MATCHING REPORT 





Figure 4.1 High Level Design. 


C. MID LEVEL 

The mid level design implements the modularization. The initial inventory 
preparation module is made up of two submodules. The first, using the staffing goal 
date and window provided by the user, splits the inventory of officers into movers and 
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nonmovers. Because of the nature of the data, the nonmovers are not set aside as 
might be imagined. In order to improve the quality of the solution, the nonmovers are 
matched to billets just like the movers are with one exception. The nonmovers are 
eligible to be matched only to billets in the command they are currently serving in. 
After the inventory is split, the second submodule removes any officers currently in 
training or nonchargeable billets from the inventory. This is because the primary 
function of the prototype is to fill the ASR billets. The mover inventory and the 
reduced nonmover inventory Is now available to be used by the second major module. 
The data preparation and matching module is made up of three submodules. 
The first submodule prompts the user for which officer/billet descriptors he wishes to 
use. It presents the criteria currently used for use or discard. It then allows the user to 
specify new criteria that have been added to the model. It then creates a file with 
indicators for each of these descriptors. This is an optional module in that it need not 
be executed every time the prototype is run. It is only run when the criteria used for 
matching are to be changed. It applies these descriptor indicators to the inventories in 
preparation for the matching. The second submodule uses the same file and applies 
the same indicators to the billet data. The third submodule takes the inventories from 
the first submodule and the billet data from the second submodule and merges the two, 


matching each officer to every billet he/she 1s qualified to fill. 
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Figure 4.2 Mid Level Design. 
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The third major module contains two submodules. The first takes the file of 
matched officers and billets, puts it in a form that can be processed by the solver, uses 
the data from the match file to generate costs that will be for the solver and then 
generates an optimal solution. The second module is the report module that generates 


reports from the data produced by the solver. 


D. LOW LEVEL 

There are four low level modules. Two of the four support the inventory 
preparation submodule and the other two support the billet preparation submodule. 
The first module applies the grouping criteria decided upon by the user to the 
inventory of ‘mover’ officers. There are currently three standard criteria that the user 
can use to group the officers and billets. They are the experience, use restriction and 
sex of the officer or billet. If only these three were ever used , then the logic could be 
‘hardwired’. However, the user requirements specify that the design be able to 
facilitate these three, or more, or fewer. This is done by allowing any number of 
criteria to be used (within reason!). The combinations of criteria are then determined. 
All of this data is then abstracted into an ordered set of indices. This is the key to the 
flexibility. When the matching module is making matches, it is checking a criteria 
number and not an officer’s experience, sex, etc. This design allows as few criteria as 
one, or as many as the user desires. At the same time, the module also classifies each 
officer as to how many AMOS’s he/she has. This classification becomes very useful in 
the matching routine because it eliminates much unnecessary checking of officers that 
may have the correct criteria index but do not have the correct number of MOS’s. The 
PMOS and/or AMOS’s must still be checked to see if they match the billet descriptor, 
but no needless checking is done. The same procedure is applied to the inventory of 
‘nonmover’ officers. 

A similar principle to the inventory grouping is applied to the grouping of the 
billet descriptors. However, it is a little more complicated because the billet descriptors 
usually allow one additional choice for each criteria. That extra choice is an ‘either’. 
In other words, a billet may require a male officer, require a female officer or allow 
either a male or female to fill the billet. The billet descriptor grouping is, therefore, a 
superset of the inventory grouping. To connect the two, a mapping is created from the 
inventory grouping into the billet descriptor grouping. This mapping is used in the 
matching module. 
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Figure 4.3 Low Level Design. 


The final low level module is the module that generates the demands. A demand 
is a record that contains one billet descriptor, one priority level, one staffing precedence 
level (SPL), and one command code (MCC). Since every distinct billet type can have 
up to five billet descriptors, priorities one to five, each billet type can have up to five 
demands. There is one caveat to this. A single billet descriptor may specify more than 
one grade. If it does so, when the billet descriptor is expanded to one grade per line, 
the billet will have more than five demands. Although there are more demands than 
there are officers, this presents no problem. The demands are used to generate 
potential matches. The solver looks at all the potential matches and then selects only 


as many as are needed to fill the billets. 


Bae SOLVER 

The design and function of the solver drives the design of the rest of the system. 
This is because the solver is the core of the system. All of the processing prior to the 
model is done to prepare the data for the solver. [he report generator takes the results 
of the solver as its input. The model developed for this system is a derivative of a 
network assignment miodel developed by Capt. Phil Exner, USMC [Ref. 1]. Capt. 
Exner designed the model as the centerpiece of his thesis. His model is a multiobjective 
optinuzation built on a capacitated transshipment network model and 1s an application 
of work done by D. Klingman [Refs. 2,3] and R. Rosenthal [Ref. 4]. The solver is a 
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Figure 4.4. System Design. 
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variant of GNET [Ref. 5]. The mathematical basis for the model will not be discussed. 
If further information in this area is desired, please see the references. 

The concept of the solver, despite all of its complicated background, is fairly 
simple. It essentially matches producers of a commodity to users of the same 
commodity. The diagram in Figure 4.5 helps to illustrate. The commodity for the 
model is people - officers. Each person is a producer or source. Each billet is a ‘user’ 
of an officer, needing one officer to fill it. In the diagram, the officers are listed on the 
left. Each officer has a specific set of descriptors (PMOS, grade, experience, etc.). The 
billets are listed on the right. In this case, each circle is not just one billet, but may 
represent several billets (BMIS), each of which is at the same command and requires 
the same set of officer attributes. The officer type circles (or ‘nodes’ as they are called 
in the network) are both users and sources. The act as channels to funnel hundreds of 
officers whose PMOS 1s in an officer type to the billets that request officers by officer 
type. Again, each officer is connected to every billet he/she is qualified for. Each 
‘connection’ is known as an ‘arc’ in the network. Each arc has an associated cost. 
Normally this is a combination of the fit and PCS costs. Obviously, the officer with 
the lowest fit number (the best fit) and the lowest PCS cost would be the best choice 
for a billet. The solver takes all these nodes and arcs as data, along with the associated 
costs as input. It then fills as many billets as possible, with the lowest aggregate cost 
possible. The result is a one-to-one mapping, with each officer being allocated to only 
one billet, and each billet having only one officer. It is very possible, even likely, 
however, that some billets will not be filled and some officers not allocated. This is not 
the fault of the solver but is an artifact of the problem and data. It should also be 
noted that if the model is run using officer types the PCS costs will only be an estimate 
because any officers that are matched to a billet via an officer type have no direct PCS 
cost basis and can only use an average PCS cost. However, if the model is run without 
using officer types, the PCS cost will be as accurate as the costing data provided. 

There is a difference between this model and the one developed by Capt. Exner. 
The model presented here solves the problem in a hierarchical fashion, filling as many 
billets as possible and then within that constraint finding a solution with the smallest 
aggregate cost. Because of this, solving for the smallest PCS cost will not reduce the 
number of billets filled. Capt. Exner’s solver, on the other hand, is constructed in a 
way that allows the user to reduce any cost factor in order to improve the performance 
of another. In that case, the number of billets filled could be reduced to improve the 
fit or toal PCS cost. 
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F. REQUIREMENTS AND DESIGN RESPONSE 
The user requirements for the system were outlined in Chapter II. A _ brief 
description of the system design was presented in Chapter IV. The following is a 


demonstration of how the design met the requirements set out by the users. 


1. Computer 
The requirement that the prototype be capable of running on Marine Corps 
computer assets was easily met. A review of the software available on the mainframes 
at Quantico, VA and here at the Naval Postgraduate School revealed two common 
software packages: a Fortran-77 compiler and a SAS package. Therefore, the limited 
prototype developed as a part of this thesis to validate the design given in the thesis 
was written primarily in Fortran-77. All of the sorting routines and one or two other 
miscellaneous routines were written in SAS. This will be discussed in more detail in 
Chapter VI. 
2. Window Size 
As with the first requirement, the requirement for the prototype model to have 
a variable window size was easily met. The design includes a module in the 
preprocessing section that allows the user to input the staffing goal date ( in YYMM 
form) and the window size in months. It then uses an algorithm provided in the 
OSGM manual [Ref. 6] for determining if an officer is a mover or not. Since the 
window size is adjustable and drives the relative percentages of the mover and 
nonmovers, the mover and nonmover data files are variable in size. This variability is 
data set sizes is supported throughout the entire design. 
3. Cost Factors 
The requirement for the design to incorporate various cost factors, some of 
which are unknown at this time, is accomplished in two ways. First, the calculation of 
the cost from the data provided is limited to a single module. Since the details of 
future cost factors is unknown, this limits the scope of the work necessarv to 
incorporate the new cost algorithms. Second, the ability to ‘carry’ data through 
modules that do not affect the data is made straightforward. The logical procession of 
data and data transformations is easy to follow. As mentioned in Chapter Three, there 
are two cost factors currently used as measures of effectiveness for the OSGM: fill and 
fit. Fill is derived after the allocation solution has been obtained. Fit is a cost input to 
the solver, as is PCS cost. The design provides the framework for calculating PCS cost 


from the mover’s current and future command locations. Any new cost factors that 
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can be derived directly from currently provided data can be computed in the arc 
generation module. New data added to the model to provide a new cost factor must be 
added to the inventory of officers. It may also be added to the billet descriptor and 
matching data if also used to determine billet eligibility. This type of change will 
require the most modification. 

4. Criteria 

As just mentioned above, if any new data is added as a new criteria, it must be 
added to the officer inventory, billet descriptors and matching criteria. The design was 
developed to favor the addition of simple criteria with a ‘yes-no’ applications such as 
experienced or inexperienced. This type of criteria may be added to the grouping 
procedure with the least amount of modification. Only the data and modules up to the 
grouping modules might need minor modification. All of the modules after the 
grouping would be unaffected. 

If a new criteria can not be reasonably added in the grouping module, the new 
data would have to be carried through the model up to the matching modules. The 
methodology for matching often will be fairly uniform, allowing straightforward 
modifications. This type of criteria addition, obviously, is the most difficult. 

Another feature provided by the design is the ability to use a subset of the 
grouping criteria. For example, if it is desired to determine the effect of using versus 
not using experience as a matching factor, it could be done. The user has the ability to 
choose or disallow any grouping criteria already implemented. This is done without 
any code modification at all. Once the user has selected his subset of grouping criteria, 
the model reconfigures itself as it works through the modules. This level of abstraction 


can be extended to cover any new criteria added to the system. 
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VY. DISCUSSION OF PROTOTYPE 


jim SCOPE 

A limited prototype of the design was implemented in order to validate the design 
concepts and provide a working model for the user. The prototype is considered 
limited because it does not implement every feature of the current OSGM and does not 
implement every feature of the design to its fullest extent. One factor affecting this was 
time constraints. It was not possible in the time allotted for the thesis to develop the 
design and produce a full implementation of the design. However, the major factor 
affecting the development of the prototype was the desire of the user to have a working 
model that could be easily modified. In this regard, the prototype can be looked at as 
a structure or framework that provides the basic functions necessary to develop a 
solution. These basic functions can then be modified or rearranged to provide a new 


configuration. Listings of the programs in the prototype are given in the Appendices. 


B. DISCUSSION 
The prototype was developed in three parts in order to support the designed 
abilitv to selectively iterate through the model. The three parts are the initial 
preprocessing stage, the intermediate processing stage and the final or solution stage. 
The user can enter the prototype at the beginning of any of these three stages. The 
initial preprocessing stage is designed to be run every time a new inventory of officers 
is developed which is normally once a month. 
1. Initial Stage 
In this first stage, three MOS reference files are created. Then the officer 
inventory is split according to the staffing goal date and window size. The nonmover 
inventory is then reduced by removing those officers in the training billets listed in the 
Dictionary. The resulting mover, nonmover and reference files are now available to be 
used as often as desired. 
2. Intermediate Stage 
The intermediate processing stage performs the groupings and matches. It 
first allows the user to choose from the grouping criteria already provided by the 
prototype or to add new criteria whose values have been added to the inventory and 
billet data files. The groups are made by taking the cross product of the choices of the 


criteria chosen. 


a) 


It can be seen in the example in Figure 5.1 that if a large number of criteria 
are used or several criteria with a large number of choices, the number of groups will 
grow exponentially and no benefit will be gained by the grouping. In fact, the 
prototype performance could be worsened. The larger the number of groups, the fewer 
the officers or billets that will be in any one group and the more processing that will be 
required. Therefore, a balance must be maintained. It is estimated that performance 
will decrease rapidly as the number of groups approach and exceed one hundred. This 
grouping is applied to both the movers and nonmovers. A superset of the grouping is 
also applied to the EI (billet) data. 
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Figure 5.1 Sample Grouping. 


Next, the ASR is expanded, adjusted, numbered and split into BMIS sets (E2 
cards). A BMIS set is a set of billets at the same command, with the same SPL and 
monitor, that have the same set of billet descriptors. Each BMIS number has 
associated with it the number of billets needed to be filled for that BMIS. The BMIS 
sets are then split by SPL and merged with the billet descriptors (E1 cards) to make the 
billet demands. Finally, the movers and nonmovers are merged with the billet demands 
to create the matches. The match files contain the inventory number of the officer, the 
BMIS number of the billet and the cost data needed to calculate the cost of the match 
for everv match in the file. 
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3. Final Stage 

The final or solution stage uses the match files to create the arcs needed by 
the GNET solver and then solves the matches for each SPL in turn. The solution can 
be developed in this way because the SPL’s are preemptive. The problem could not be 
partitioned by MOS or grade as it is by SPL because the billet descriptors allow MOS 
and grade substitutions. This means that there are no clear cut divisions of the 
problem by MOS or grade. 

The first SPL solved for is SPLO which covers all of the nonchargeable billets. 
The nonchargeable billets are filled first so that a truly representative inventory can be 
used to fill the authorized billets from the ASR. After this, SPL’s | through 5 are 
filled, in sequence. After each SPL, the remaining matches in the match files are 
reduced by removing those officers allocated to higher SPL billets. This reduces the 
problem size for each subsequent SPL and provides a better performance. 

The other program in the final stage uses the solution developed by the 
GNET solver and accesses the inventory and billet files to produce reports. It needs to 
access the inventory and billet files because all the solver gives in the solution is the 
inventory number and the BMIS number. This last program provides only the 
essential tools for making the reports and does not attempt to generate all of the 
currently used reports. It would be possible to restructure this program to put the 
solution data in a form usable by a database package. This would allow ad hoc queries 
by the user. Discuss some of the specifics of the prototype and how these meet the 


design specifications. 


C. ANALYSIS OF RESULTS 

The actual and estimated performance times for the prototype implementation 
are given in Tables 9, 10 and 11 Using the standard one year window size, the officer 
population was divided into 7,251 movers and 13,815 nonmovers. It should be noted 
here that SAS was used only for the sorting of the data sets. Fortran was used in all of 
the actual data conversion and matching. Using PULLE3T FORTRAN, 427 
nonmover officers that were in training billets were removed from the nonmover 
inventory. The remaining training billets and all of the nonchargeable billets will be 
filled during the SPLO run of the solver. Operating on the two parts of the officer 
inventory in the intermediate processing stage produced better performance times than 


operating on the inventory as a whole. The majority of the intermediate stage 


oF 


programs are for billet data preparation. The match files produced by the two 
MATCH programs were reduced in size because the officer type billet descriptors were 
not included in the processing. This allowed a significant time savings in the 
processing time. A time estimate for using the solver iteratively on the separate SPL 
match files produced better results than the projections solving of the entire problem as 
one large problem. The decision to solve the problem by SPL’s was motivated by a 
recommendation given in Capt. Exner’s thesis [Ref. 1]. 


TABLE 9 
INITIAL PREPROCESSING 


PROGRAM SECONDS 
NUMMOS FORTRAN 0.40 
INVSPL FORTRAN 58:39 
BSORT SAS 18.58 
EXPE3 FORTRAN 0.63 
E3SORT SAS 0.62 
DIVE3 FORTRAN 0.87 
PULLE3T FORTRAN 26.24 
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VI. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

There were several conclusions drawn from the results of the design and from the 
work performed in developing and verifying the design. The first is that the design is 
a viable one and does provide the flexibility and expandability requested by the user. 
The design is sufficiently robust to allow future enhancements and modifications with 
relative ease. Another conclusion is that the allocation problem can be broken down 
into smaller sub-problems and each of them solved individually. Due to the nature of 
the solver, the total time of solving the smaller problems can be significantly less than 
the time to solve the entire problem as a whole. Along this same line, it is also true 
that smaller, more specialized allocation problems can be easily set up to be solved. 
For example, if a special scenario were established that only required a small composite 
group of Marines, only the officer inventory and billet descriptor data files would have 
to be changed in order to run the problem through the model. Another conclusion 
that was recognized early in the development of the design was that the solution 
method could be generalized for more than just military applications. Many 
commercial companies have similar personnel and job requirements. Any criteria that 
can be quantified can be used as matching criteria. This would allow the companies 
great flexibilitv in establishing job requirements. The final conclusion was that the 
current method of billet description can be simplified. The major problem lies in the 
method of PMOS specification. Most of the billets specify a single PMOS for each 
choice. Some, however, specify a range of allowable PMOS’s by using occupational 
fields, suboccupational fields or officer types. Figure 6.1 gives a sample of the number 
of officers in an occupational field and officer type for the grades specified. Each of 
these officers would be listed once for every billet they are eligible for. It is not 
reasonable, with the type of solver used in the prototype, to list this many officers for 
every billet that calls for an occupational field or officer type. A much smaller set of 
eligible officers would still allow a good solution. 


B. RECOMMENDATIONS 
Based on the conclusions presented above, these are some recommendations for 


future improvements to the officer allocation problem as it relates to this model. The 
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OCC FIELD GRADE  £NR OF OFFICERS 
30xX O3 363 


OT GRADE NR OF OFFICERS 
GDCB O2 1155 


Figure 6.1 PMOS Specifications. 


first 1s that the results generated by the prototype be evaluated and traced in order to 
see which of the billet division records (E2) and the billet descriptors (E1) were actually 
used in the development of the solution or to what degree they were used. It is 
possible that due to the nature of the solver used in the prototype that the billet data 
may be able to be condensed. For example, it may be found that some of the third, 
fourth, and fifth choice billet descriptors never get used in the generation of the 
solution. These could be removed, and reduce the processing time and the data file 
size. Following this same line of thought, it would be possible to simplify the billet 
descriptors, PMOS descriptors in particular, if a reduction of the scope of the PMOS 
descriptors were done. For example, the occupational field 30xx might be replaced by 
307x, which has only 27 Captains (O3’s). This kind of specification would allow the 
monitors to be more exact in billet requirements while not losing any ability to fill all 
of their billets because the prototype solver inherently uses a wider officer population 
base than the current solver. Another recommendation would be to put the results of 
a model run in a database, with the data divided between the monitors. This would 
allow the monitors to make ad hoc queries of the data with the results of the query in 
any form they wished. A final recommendation is that a good PCS cost basis be 
developed. The prototype allows the calculation and summation of PCS costs for a 
model run. Updating and maintaining the PCS cost factors would allow greater 
confidence and better planning based on the PCS costs generated during a model run. 
Additional information could easily be added to the personnel data file for use in the 
PCS cost calculation. This data would be the number of dependents in each age group 
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APPENDIX A 
GLOSSARY OF TERMS 


Additional MOS - a subspecialty (MOS) that an officer may 
have. 


Authorized Strength Report - a listing of all authorized officer 
billets. 


a set of one or more billets with the same command, billet 
descriptor, SPL, billet MOS and billet grade. 


Billet MOS - recommended MOS of the officer who will fill the 
specified billet. 


a collection of files used by the model in modifying the 
Inventory, ASR and making the allocations for the staffing goals. 


a nonmover who cannot fill any ASR billet within his MCC. 


number of billets, for a model run, that have personnel allocated 
to them. 


how well the officer type allocated to a billet matches the stated 
requirements for that billet. 


a person whose tour does not end in the window and therefore 1s 
not considered for a billet outside of his MCC for the model run. 
The same as NONMOVER. 


a person whose tour ends in the window. The person is free to 
be allocated to any billet at any MCC that he qualifies for. The 
same as MOVER. 


the rank of an officer. 
a current listing of the Marine Corps officer population. 


Monitor Activity Code - identifies the monitor who is responsible 
for the data associated with the MAC. 


Monitored Command Code - a code that specifies the command 
under which a Marine 1s serving. 


Manpower Management Officer Assignment Branch - the office 
in HQMC responsible for assigning officers to billets. 


officer in MMOA responsible for filling all the authorized billets 
for a given set of MOS’s and grades. 


Military Occupational Specialty - Ex: Infantry, Artillery, Tanks, 
ete 
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NON- 
CHARGEABLE 


OERICER 
iguge 


OSGM 


PMOS 


PRIORITY 


SPL 


STAFFING 
GOAL DATE 


WINDOW 


a person who 1s either a prisoner, patient, transient or in training 
(eZ Te 


1) A group of officers with the same PMOS, Grade, experience, 
etc. 2) A code that represents a specific set of MOS’s. 


Officer Staffing Goal Model - a computer program that takes an 
Inventory, ASR and Dictionary as input and returns an 
allocation of the officers to the billets. 


Primary MOS - the specialty that an officer will devote most of 
his/her career to. 


the relative importance of a billet descriptor for use in filling a 
billet. (PRIORITY = 1-5) 


Staffing Precedence Level - a number reflecting the relative 
importance a command holds for filling its billets. (SPL = 1-5) 


the reference date on which a model run is based. It is the date 
the current officer inventory 1s produced. 


the number of months before the run date in which all personnel 
whose current tours end are considered free. 
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APPENDIX B 


PROTOTYPE PROGRAM REVIEW 


PREPROCESSING: 


NUMMOS FORTRAN NUMBERS THE PRIMARY AND ADDITIONAL 


INVSPL FORTRAN 


BSORT SAS 


BAPES EOI KAN 


E3SORT SAS 


DIVE3 FORTRAN 


PULEPES er OR ERAS 


MOS's IN THE Bl PILE VEOR] USE “INe ether 
PROGRAMS. 
PERFORMANCE - 0.40 SEC 


BREAKS THE ORIGINAL SINVENTORY. ING 
MOVERS AND NONMOVERS, ACCORDING TO THE 
STAFF DATE AND WINDOW SIZE. 

PERFORMANCE: -38.35SEC 


SORTS THE NONMOVER INV FILE BY MCC, PMOS, 
GD. 
PERFORMANCE - 18.58 SEC 


EXPANDS THE E3 CARDS INTO A SINGLE LINE 
FORMAT. 
PERFORMANCE - 0.63 SEC 


SORT THE EXPANDED E3 CARDS BY CAT, MOS, GD. 
PERFORMANCE - 0.62 SEC 


DIVIDES THE E3 CARDS INTO TRAINING AND 
NONCHARGEABLE AND CONVERTS THE GRADE 
AND MOS. 

PERFORMANCE - 0.87 SEC 


REMOVES ANY PERSONNEL AT ANY F3 MCC E3T 
ETEE. 
PERFORMANCE - 26.24 SEC 


INTERMEDIATE PROCESSING: 


MKCRIT FORTRAN 


GRNINV FORTRAN 


GRMINV FORTRAN 


EISORT SAS 


ALLOWS THE USER TO DEFINE THE GROUPS fit 
WISHES TO USE FOR THAT PARTICULAR RUN. 
PERFORMANCE - 0.02 SEC 


GROUPS THE NONMOVER INVENTORY BY THE 
GROUPS SPECI FIEDIBY Vier IT Rona iA ~- 
PERFORMANCE - 28.95 SEC 


GROUPS THE MOVER INVENTORY By THE GROUT: 
SPECIFIED BY MRGREIGLO Rai: 
PERPORSIANCE = Toes ee 


SORTS THE El CARDS ByevOe: 
PERFORMANCE - 3.44 SEC 
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EXPE! FORTRAN 


GRE] FORTRAN 


EXPASR FORTRAN 


EXPC1 SAS 


ASORT SAS 


CSORT SAS 


ROLLCI FORTRAN 


ADJASR FORTRAN 


NUMASR FORTRAN 


E2SORT SAS 


BMIS FORTRAN 


REND FORTRAN 


BMIX FORTRAN 


MSORT SAS 


DEMAND FORTRAN 


EXE OND Smitieen Glebe I EILE BYeENUMERATING 
FROM LOGD TO HIGD. IT ALSO TRANSFORMS EXP 
AND UR. 

PERFORMANCE - 7.51 SEC 

GROUPS THE E! FILE ACCORDING TO GROUP 
CRIT. 

PERFORMANCE - 6.17 SEC 


EXPANDS THE ASR FROM THE ORIGINAL FORMAT 
TO A SINGLE LINE FORMAT AND NUMBERS THEM. 
PERFORMANCE - 9.17 SEC 


EXPANDS THE Cl CARDS FROM THE ORIGINAL 
FORMAT TO A SINGLE LINE FORMAT. 
PERFORMANCE - 0.15 SEC 


SORTS EXP ASR INTO MOS GD MCC FORMAT. 
PERFORMANCE - 8.10 SEC 


SORTS EXPCI] FILE INTO MOS GD MCC FORMAT. 
PERFORMANCE - 0.32 SEC 


ROP@seelewny MUPLICATE TC] LINES IN THE Cl 
BELLE. 
PERO me wWaANCE - 0.5! SEC 


APPLIES THE ADJUSTMENTS GIVEN IN THE Cl 
CARDS 1O 1HE ASR. 
PERFORMANCE - 8.62 SEC 


NUMBER THE ASR AND GENERATE A POINTER 
ARRAY. 
PERFORMANCE - 9.46 SEC 


NUMBERS AND SORTS THE E2 CARDS BY 
MOS,GD,MCC,SPL, BOD,MAC. 

PERFORMANCE - 4.83 SEC 

IDENTIFIES AND NUMBERS EACH SEPARATE BMIS 


BROW TEE S@RIED E2 FILE. 
PERFORMANCE - 6.72 SEC 


Dive wei eeb vito CARIDS INTO SPL GROUPS. 
PER PONV NC@E - 1.92 SEC 


MERGES THE ASR AND VALID E2 CARDS. 
PERFORMANCE - 24.83 SEC 


SORTS THE TOTAL MIX RECORDS BY BOD. 
PERFORMANCE - 8.88 SEC 


MERGES@ite: Er €ARDS AND THE MERGED 
TOTAL MIX CARDS INTO A DEMAND FILE. 
PERFORMANCE - 40.93 SEC 
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NMATCH FORTRAN 


MMATCH FORTRAN 


FINAL PHASE: 
SHUFFLE SAS 


SOLVE FORTRAN 


REPGEN FORTRAN 


- 


MATCHES THE NONMOVERS TO THE DEMANDS. 
PERFORMANCE - 60.00 SEC (est) 


MATCHES THE MOVERS TO THE DEMANDS. 
PERFORMANCE - 75.00 SEC (est) 


SORTS THE MATCH DATA BY PMOS AND BMIS FOR 
THE SOLVER. 

PERFORMANCE - 50.00 SEC (est) 

GNET SOLVER THAT WILL SOLVE EACH SPL IN 
TURN. 

PERFORMANCE - 180.00 SEC (est) 

USES THE SOLVER RESULTS AND OTHER Files 


GENERATE THE VARIOUS REPORTS REQUIRED. 
PERFORMANCE - 90.00 SEC (est) 
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APPENDIX C 
INITIAL PROCESSING PROGRAMS 


NUMMOS FORTRAN 


THIS PROGRAM TAKES THE Bl CARDS AND MAKES Lotseyo VIN 3S 
THAT WILL SE USED TO CONVERT THE MOS'S INTO MOS 
NUMBERS. IT ALSO CREATES-A FILE FOR INDICES FOR THE 
ORRPCOR TYPES INTO THE MOS NUMBERS. 

PROGRAM NUNMOS 

CHARACTER*4 MOS ,DESC ASUS 76,1:20) 

INTEGER MOSNUM,I ,OTP (8 ) 

INTEGER OT1,0T2,0T3,0T4,0T5,0T6 ,OT7 ,OT8 

DATA OT1, Sm, OT3, OT4 /0,0,0,0 i 

DAte OTS ,OTO,01T/,018 70, 0,.04/ 

T Th POULE BLA’; SLATUS 


OPEN (UNIT = 1, FILE = = 'OLD! 
OPEN (UNIT = 2, FILE = 'PMOS Bl A', STATUS = 'NEW' 
OPEN (UNIT = 3, FILE = 'ADMOS Bl A', STATUS = 'NEW') 
OPEN (UNIT = 4, FILE = 'BMOS Bl A', STATUS = 'NEW') 
OPEN (UNIT = 7, FILE = 'OT PTR A', STATUS = 'NEW') 
MOSNUM = 0 


READ IN THE MOS AND DESCRIPTOR FROM THE Bl FILE AND 
CREATE THE PMOS, ADMOS AND BMOS FILES. NOTE THAT 
THE BMO@S FILE HAS ALL OF THE MOS'S, THE ADMOS FILE 
HAS ALL THE MOS'S EXCEPT 'BL' AND THE PMOS FILE HAS 
Pebeeaeer. THE 'BL" AND ‘AD' MOS'S. 
10 READ(1,4,END = 100) MOS,DESC 
MOSNUM = MOSNUM + 1 
WRITE(4,5) MOS ,MOSNUM 
IF (DESC NE. ‘BL ') THEN 
WRITE(3, 5) MOS ,MOSNUM 
163 (DESC .NE. 'AD ') THEN 
WRITE(2, 5) MOS ,MOSNUM 
ND IF 


END IF 
GOTO 10 
RESET THE Bl FILE 
100 REWIND(1) 
READ IN THE MOS'S AND IGNORE THE 'BL', 'AD', 
AND 'NOSG' MOS'S. 
CREATE AN ARRAY OF MOS NUMBERS FOR THE MOS'S IN 
EACH OFFICER TYPE 
110 READ(1,4,END = 250) MOS ,DESC 
IF (DESC. MEO. 9 BL. ') THEN 
BEoemle (DESC .EO. ‘AD ') THEN 
EGoeeir (pEscC .E9. 'NOSG') THEN 
ELSE IF (DESC EO. 'NAFW') THEN 
OT1 = OT1 +1 
OT(1,0T1) = MOS 
ELSE IF (DESC pie 'NAHE') THEN 
OlZ—= 002 + 
OT(2,0T2) = nee 
ELSE IF (DESC .EQ. 'NANF') THEN 
OT3 = OT3 +1 
OT(3,0T3) = MOS 
ELSE IF (DESC .EQ. 'GDCB') THEN 
OT4 = OT4 + 1 
OT(4,0T4) = MOS 
ELSE IF _(DESC eee 'GDCS') THEN 
@TS OTS + 
O25 OTS) = 708 
BESE, tr {DESC .EO. 'GDSS') THEN 
OT6 = OT6 + 1 
OT (6 ,0T6) = MOS 
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ELSE IF saat “EQ. 'aGCS') THEN 
OT7 T7 + 
OF]. “oT? = OS 

ELSE IF (DESC. EO. 'AGSS') THEN 
OT8 = OT8 + 1 
OT(8,0T8) = MOS 


BENDEL 
GOTO 110 
PoC [Cte = OT1 
OTE(2Z) = OT2 
OTE(s) = OT3 
OTP(4) = OT4 
OTP(5)) = Ols 
OTP(6) = OT6 
OTE G7) = O17 
TP(8) = OT8 


0 
* WRITE THE ARRAY TO THE OT PTR FILE 
DO 160 8 


=a 
WRITE (7,65 oTP(T) On (TE 3) aunts, 7)) or(T,3) 
C OT } 9 ri } OT(T6) Gna 
fe OT 1 '8 1,9) ,OT(1,10) ,OT(1,11), 
C OT(I Ee ont. 13) ,OT(I, 14), OT(1, 15) 


160 CONTINUE 
4 FORMAT (A4,1X%,A4 
5 FORMAT(A4,1X,13 
6 FORMAT(I4, 1S ns, A4)) 
200 STOF 
END 


48 


a Pe 


INVSPL FORTRAN 


THIS PROGRAM GETS THE STAFFING GOAL DATE AND WINDOW SIZE 
FROM THE USER AND THEN SPLITS THE INVENTORY INTO MOVERS 
AND NONMOVERS 
THE FUNCTION ADDS A DATE IN YYMM FORM TO A NUMBER 
OF MONTHS AND RETURNS THE RESULTS IN YYMM FORM 
INTEGER FUNCTION CDATE(NDATE ,NCF) 
INTEGER NDATE ,NCF 


INTEGER T 

T= MOD(NDATE ,100) + 

CDATE = (INE (ENT (NDATE/100)+ (172) ) * 100) 
Cc + MOD(T,12) 


END 
He FUNGTION 15 DONE 


PROGRAM INVSPL 

CHARACTER*1 SEX ,JUNK 

CHARACTER*2 INGD , INCBGD , INFBGD 

CHARACTER*3 MCC, FMCC,AMCC 

ENTEGER UR,EXP, DCTB, EGE. FICE, LTD; SEea 

INTEGER CBGD, FBGD, JMOS 

INTEGER AEDA, STDATE, WINDOW, T,GD,DE,AaMT ,LNUM 

INTEGER PMOS,AMOS1, AMOS2, CMOS, FMOS, INVMOS, MOSNUM 

INTEGER CDATE, INVDT, PM(0: 2999) , PA(O: 9999), INVNUM 

DATA PM, PA / 1000040, 10000%* 0 / 

OPEN (UNIT = 8, FILE 'TEST INV A', STATUS = 'OLD') 

OPEN (UNIT = 9, FILE ULieol A’, SUALUS = 'OLD' ) 

OPEN (UNIT=10, FILE='MOVER INV A' ,STATUS='NEW' ) 

OPEN (UNIT=11, FILE='NONMOVER INV A' ,STATUS='NEW' ) 

OPEN (UNIT = 12, FILE = 'PMOS Bl A', STATUS = 'OLD') 

OPEN (UNIT = 13, FILE = 'ADMOS Bl A', STATUS = 'OLD') 
GET STAFFING GOAL DATE AND WINDOW FROM THE USER 

ek os, ee THE INVENTORY DATE: ' 


READ ( *) INV DT 

A ae ) 'ENTER THE WINDOW SIZE IN MONTHS(<= 12): ' 
READ ( k) WINDOW 

STDATE = CDATE(INVDT ,WINDOW) 

INVNUM = 0 

JMOS = 0 


READ IN THE PMOS ARRAY DATA 
20 READ(12,17,END = 30) INMOS,MOSNUM 
PM(INMOS) = MOSNUM 
GOTO 20 
READ IN THE ADMOS ARRAY DATA 
30 READ(13,17,END = 5) INMOS,MOSNUM 
PA(INMOS) = MOSNUM 
GOTO 30 
17 FORMAT(I4,1X,13) 
READ IN INVENTORY DATA, TEST FOR MOVER OR NONMOVER 
AND WRITE TO THE APPROPRIATE FILE. 
5 READ(8,2,END = 200) PMOS,INGD,AMOS1 ,AMOS2,U 
C MCC, EXP ,SEX,DCTB,TCF,ITD,FMCC,FEDA, aMeC A SEDA. 
C INCBGD , CMOS, INFBGD, FMOS, FTCF 
2 FORMAT(I4,1X,A2,1X,14,1X,14,1X,11,1X,A3,1X,I1,1X,Al, 
mci Tet 1 IX mek P41 0a3,1%,14¢,1X, 
A2,1X,14,1X,A2,1X,14,1X,14$ 
CHECK PMOS TO ENSURE THAT IT IS VALID 
IF (PM(PMOS) .EQ. 0) GOTO 5 
CONVERT THE GRADE TO A NUMBER FORMAT 
IF (INGD_ . .EQ. '02') THEN 


ELSE TF (INGD .EQ. '03') THEN 
ELSE IF (INGD .EQ. '04') THEN 
ELSE IF (INGD .EQ. '05') THEN 
ELSE IF CINGD .EQ. 'WO!') THEN 
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AN 


GD = 1 
eer seep EO. *C6") THEN 


END IF 
* CONVERT THE GD AT THE CURRENT MCC 


LE pleeee 7bOa 3 GOTO 7 
IF ae OZ) aoe 
G = 


CBGD 

ELSE IF (INCBGD .EQ. '03') THEN 
CBGD = 3 

ELSE IF (INCBGD .EQ. '04') THEN 
CBGD = 

ELSE IF (INCBGD .EQ. 'OS') THEN 
CBG 

ELSE IF (INCBGD .EQ. 'WO') THEN 


CBGD = 1 
ELSE IF (INCBGD .EQ. '06') THEN 
Qe = 
END IF 
* CONVERT THE GD AT THE FUTURE MCC 
7 «IF eee .EQ. ! , GOTO 8 
IF THEN 


INFBGD .EQ. '02! 

FBGD = 2 

ELSE IF (INFBGD .EQ. '03') THEN 
FBGD = 3 

ELSE IF (INFBGD .EQ. '04') THEN 
FBGD = 4 

mea caes (INFBGD .EQ. '05') THEN 
EF = 

ELSE IF (INFBGD .EQ. 'WO') THEN 
FBGD = 1 

ELSE a5 SERB? ,EO. 06 a iien! 


FBG 
END IF 
INVNUM = INVNUM + 1 
38)) etce ee ' .AND. AEDA .LT. STDATE) THEN 


WRITE(11,3) PM(PMOS) ,GD,PA(AMOS1), ae) UR 
MEG VE, SEX, JMOS , INVNUM 


GOTO 
ELSEIF (Puce ~NE. ! ' .AND. FEDA .LT. ee, THEN 
bi? (CDATE(FEDA, FTCF ) -LI. STDATE) T 
WRITE(10,3) PM(PMOS) , GD PACAMOS1)  PA(AMOS2), 
Sree UR IEC? EXP, SEX, JMGS: INVNUM 


MCC = FMCC 
IF (INFBGD .NE. ' ' .AND. 
C PU(FMOS) | .NE. 0) THEN 
PMOS = FMO 
cD = FBGD 


END 
WRITE (11, 3) PM(PMOS) ,GD Eee FEN EE 
UR Mec; EXP, SEX, JMOS, INVNUM 


eae 
ELSELF (HeGaticnas. ' ,AND. ITD .GE. STDATE) THEN 
iy? (INCBGD ~-NE. ' ' . AND. 
c SEES .NE. 0) THEN 
PMOS = CM 
eoree CBGD 


WRITE (11. 3) PM(PMOS) ,GD,PA(AMOS1) , PA(AMOS2) , UR, 
Nec ax SEX, JMOS , INVNUM 


GOTO 5 
ELSEIF (Mce Nee ' AND. 
C CDATE(DCTB, TCF) GE. STDATE) THEN 
IF (INCBGD .NE. fee ° 
PM( CMOS) NE. QO) THEN 
PMOS = CMOS 
GD = CBGD 
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EN 
WRITE(11. 3) PM(PMOS) ,GD,PA(AMOS1) ,PA(AMOS2), 
Po ic RM; EXP, SEX, JMOS, INVNUM 


WRITE(10,3) PM(PMOS),GD,PA(AMOS1), ee 
UR Ce. EXP, SEX, JMOS, INVNUM 


GOTO 5 
END IF 
GOTO 5 
* THIS SECTION HANDLES THE Gl CARDS 
200 AMOS1 = 0 
AMOS2 = 0 
MCC = 'Z2z2! 
LNUM = 0 
60 READ(9,4,END = 250) AMT,GD,DE,PMOS,SEX 
4 FORMAT(1X,14, 1K, 11, 1X hint 14 15xoal) 
IF He TES. 1 + GOTO 60 
IF 
UR = 
EXP 
ELSE IF ae .EQ. 2) THEN 
UR = 2 
EXP = 1 
ELSE IF (DE .EQ. 3) THEN 
UR =1 
EXP = 0 
ELSE IF (DE .EQ. 4) THEN 
UR = 1 
EXP = 1 
END IF 
DO 40 I = 1,AMT 
INVNUM = INVNUM 
WRITE (10,3) PM (PHOS) , GD, PA(AMOS1) , PA(AMOS2) , UR, 
C MCC,EXP, SEX, JMOS, INVNUM 
3. FORMAT(I4,1X,11,1X,14,1X,14,1X,11,1X,A3,1X,11,1X, 
C 1,1X,14,1X,15) 
40 CONTINUE 
GOTO 60 
250 STOP 
END 


Sk 


BSORT SAS 


* THIS PROGRAM SORTS THE NONMOVER FILE BY; 
* MCC, PMOS, GD; 
CMS FILEDEF FONE DISK NONMOVER INV A; 
CMS FILEDEF FTWO DISK NMSORT INV A(RECEM E 
LRECL 80 BLOCK 80; 
DATA DONE; 
INFILE FONE; 
INPUT PMOS 1-4 GD 6 AMOS1 $ 8-11 AMOS2 $ 13-16 UR $ 18 
MCC $ 20-22 EXP S$ 24 SEX 5.26 JMOs soe2o—51 
NGMP seSso—sa; 
PROG SSeCRT 
BY MCC PMOS GD; 
DATA _NULL_=; 
SET DONE; 
FILE FIWO; 
PUT PMOS 1-4 GD 6 AMOS] 8-11) AMiOs2 f3=t6 GReicereeezo—22 
EXP 24 SEX 26 JHOS Zé-sl uM 35-27, 
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EXPE3 FORTRAN 


C234567 
* THIS PROGRAM WILL TAKE FULL E3 AND CONVERT IT 
* TO A SINGLE LINE FORMAT 
PROGRAM EXPE3 
CHARACTER*1 CAT 
CHARACTER*2 GD 
CHARACTER*4 MOS1,MOS2,M0S3,MOS4,MOS5 ,MOS6 
INTEGER AMT1,AMT2,AMT3,AMT4,AMTS , AMT 
OPEN (UNIT = 1, FILE = 'FULL E3 A', STATUS = 'OLD') 
OPEN (UNIT = 2, FILE = 'EXPE3 FILE A', STATUS = 'NEW') 
* READ IN A LINE FROM FULL E3 
10 READ(1,3,END = 200) CAT,GD,MOS1,AMT1,MOS2,AMT2,MOS3, 
C AMT3 ,MOS4, AMT4,MOS5 ,AMTS ,MOS6, AMT6 
3 FORMAT(A1,1X,A2,1X,A4,1X,13,A4,1X,13,A4,1X,13,A4, 
C a ,A4,1X,13,A4,1X,13) 
WRITE(2,4) CAT, co. Mosi, AMT1 


IF (MOS2 .EQ. ') GOTO 10 
WRITE (2,4) ear, GD ,MOS2,AMT2 
IF (MOS3 .E EGOTO!10 
WRITE(2,4) ir, GD,MOS3, AMT3 
IF (MOS4 .EOQ. ') GOTO 10 
WRITE(2,4) ear, GD ,MOS4, AMT4 
Ir (MOS5 .EQ. ') GOTO 10 
WRITE(2,4) ear, GD, MOSS , AMTS 
IF (MOS6 .EQ. "Goro 10 
WRITE (2, 4) gir GD ,MOS6 , AMT6 
4 FORMAT(Al,1X,A2,1X,A4,1X,1I3) 
200 STOP 
END 


a 


E3SORT SAS 


* THIS PROGRAM SORTS THE EXPANDED E3 CARDS BY; 
* CAT, MOS, GD; 
CMS FILEDEF FONE DISK EXPE3 FILE A 
CMS FILEDEF FTWO DISK EXP E3 A(RECEM F LRECL 80 BLOCK 80; 
DATA DONE; 

INFILE FONE ; 

INPUT CAT $ 1 GD $ 3-4 MOS $ 6-9 AMT § 11-13; 
PROC SORT; 

BY CAT MOS GD; 
DATA _NULL_; 

SET DONE; 

FILE FIWO; 

PUT CAT 1 GD 3-4 MOS%6=Jestia 1s: 
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DIVE3 FORTRAN 


THIS PROGRAM PUTS THE E3 CARDS 
SPLITS THEM INTO TWO FILES - T 
PROGRAM DIVE3 
CHARACTER*1 TCAT,CAT 
CHARACTER*2 INGD,TGD 
INTEGER AMT,GD,MOS ,PM(1:99 
DATA PM / 9999%0 / = 


'E3 


O 
A) 
ey 
= 
mH 
J 
a 
Wh 
rr] "x 
Hite 
Ec 
esi eg] 
tn 


OPEN (UNIT = 4, FILE = 'PM 
READ IN THE MOS ARRAY DATA 
10 READ(4,9,END = 15) INMOS,M 
PM(INMOS) = MOSNUM 
GOTO 10 
READ IN AND ROLL UP THE E3'S 
15 READS 1,7 END = 200) MCAT au 
1,7,END = 200) CAT,IN 
IF (CAT .EQ. TCAT .AND. 
C INMOS .EO. TMOS) THEN 
TAMT = TAMT + AMT 
GOTO 20 
ELSE 
IF (TGD .EQ. '03') THEN 
en) = 
ELSE IF (TGD .EQ. '02') 
GD = 2 


ELSE IF (TD .EQ. '04') 
ELSE IF (TGD .EQ. 'WO') 
ELSE IF (TGD .EQ. '05') 
ELSE IF {TGD .EQ. '06') 
END IF 


IN SINGLE LINE FORMAT AND 
RAINING AND NON-CHARGEABLE 


99) ,MOSNUM, INMOS , TMOS , TAMT 


P E3 A', STATUS = 


TSPLEEwA , Searus = 
‘ESN FILE A', STATUS 
OS Bl A', STATUS = 'OLD') 


OSNUM 


GD, IMOS, TAMT 
GD ,INMOS , AMT 


INGD .EQ. TGD .AND. 


THEN 
THEN 
THEN 
THEN 
THEN 


Eee TCAT .50),  (r') THEN 


WRITE (2,8) TCAT,GD, 


SE 
WRITE (3,8) TCAT,GD, 
END IF 

TCAT = CAT 

TGD = INGD 


IF 
FORMAT(Al,1X,A2,1X,14,1X,I 
FORMAT(Al,1X,1I1,1X,14,1X,1 
FORMAT(1I4,1X,13) 
STOP 


END 


OwO~] 


PM(TMOS) , TAMT 
PM(TMOS) , TAMT 


3} 
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PULLE3T FORTRAN 


THIS PROGRAM PULLS THE E3 TRAINING PERSONNEL OUT OF 
THE NONMOVER INVENTORY. THE MCC'S FOR THE E3T ARE IN 
THE F3 FILE. THE PROGRAM PRODUCES A REDUCED NONMOVER 
FILE, ES PERSONNEL PILE, SPLO EXCESS FIER ANDSGHE 
UNFILLED ES BILLET FILE. IT IS ASSUMED THAT THe Fs 
FILE IS IN SINGLE LINE FORMAT AND IS SORTED. 

PROGRAM PULLE3 

CHARACTER*1 SEX,UR,EXP 

CHARACTER*3 INVMCC, PaMee, PRINCE 

INTEGER E3AMT(0O: :229, 1:6) ,TAMT , INVNUM, JMOS 

INTEGER INVGD, aEee PMOS, AMOS1, AMOS2, TMOS, io 


OO OR OF 


DATA E3AMT / 1380%*-1/ 

OPEN (UNIT = 7 4 = 'E3T FILE A', STATUS = 'OLD') 

OPEN (UNIT = 2, FILE = 'NMSORT INV A', STATUS = 'OLD') 

OPEN (UNIT = 3, FILE = 'FULL F3 A', STATUS = 'OLD! 

OPEN (UNIT = 7, FILE = 'REDUCED NONMOVER A', STATUS = 

OPEN (UNIT = 8, FILE = 'E3 PERS A', STATUS = 'NEW') 

OPEN (UNIT = 9, FILE = 'SPLO EXCESS A', STATUS = 'NEW') 
OPEN (UNIT = 10, FILE = 'UNFILLED E3BIL A', STATUS = 'NEW') 


OP ll, FILE = ‘USED Es 5a 7 STATUS = 'NEW! ) 
* READ THE E37 DATA INTO AN ARRAY 
10 READ(1,2,END = 20) TGD,TMOS , TAMT 
E3AMT (THOS, TGD) = TAMT 
GOTO 10 
20 PRIMCC = '000' 
a ee ,3,END = 70) F3MCC 
30 READ(2,4, ,END = 200) PMOS,INVGD,AMOS1,AMOS2,UR, 
C BS co EXP, DEX JMOS, INVNUM 
40 IF (F3MCC .EQ. INVMCC) THEN 
te (E3AMT PMOS,INVGD) .GT. 0) THE 
WRITE(8,4) PMOS, INVGD, AMOS1, ANOS2, UR FENVMEC? 
C EAn; SEX, JMOS , INVNUM 
LF CPSMeCe PE "PRIMCC) THEN 
WRITE (11, 3) Pauce 
PRIMCC = F3MCC 


END IF 
Be ECs ,INVGD) = E3AMT(PMOS,INVGD) -1 
O 


ELSE Sie Gomes 3 ,INVGD) .EQ. 0) THEN 
WRITE(9,4) PMOS,INVGD,AMOS1 ,AMOS2,UR,INVMCC, 
EAP , SEA, JMOS, INVNUM 
GOTO 30 


SE 

WRITE(7,4) PMOS,INVGD,AMOS1,AMOS2,UR,INVMCC, 
EXP ,SEX, JMOS , INVNUM 

GOTO 30 


END IF 
Bloke pee .GT. INVMCC) THEN 
WRITE(7,4) PMOS,INVGD,AMOS1 ,AMOS2,UR,INVMCC, 
e ESE, SEX, JMOS, INVNUM 
GOTO 30 
LSE 


READ(3,3,END = 70) F3MCC 
GOTO 40 


END IF 
70 READ(2,4,END = 200) PMOS,INVGD,AMOS1 ,AMOS2,UR,INVMCC, 
C BAr, SEX, JMOS , INVNUM 
WRITE(7,4) PMOS,INVGD, AMOS1, AMOS2, UR, INVMCC , EXP ,SEX, 
JMOS, INVNUM 
GOTO _70 


200 DO 220 I = 1,229 
DO) 210 7d e= 6 
09 (E3aMt(T, J) .GT. 0) THEN 
WRITE(10,2) J, I, E3AMT(I,J) 

END IP 

210 CONTINUE 

220 CONTINUE 

2 FORMAT( 2X TlysrxX 1453) 
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3 omar (a3) 


&4 FORMAT(1I4,1X,11,1X,14,1X,14,1X,Al1,1X,A3,1X,Al, 
le i, Al, 14, 1X; 15) 

STOP 

END 


3y// 
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APPENDIX D 
INTERMEDIATE PROCESSING PROGRAMS 


MKCRIT FORTRAN 


THIS PROGRAM TAKES USER INPUT AND CREATES A FILE WITH 
CRITERIA THAT WILL BE USED TO GROUP THE INVENTORY IN A 
WAY THAT SHOULD REDUCE SEARCH TIME WHEN MAKING MATCHES. 


PROGRAM MKCRIT 

CHARACTER*1 CHVAL,URANS ,EXPANS , SEXANS ,MORE 
CHARACTER*6 CRNAME 

INTEGER CRNUM,CHNUM,I,K,PRENUM 

OPEN (UNIT=1, FILE = ‘GROUP CRIT A', STATUS = 'NEW') 


ASK USER HOW MANY DIFFERENT CRITERIA THEY WISH 


TO USE IN GROUPING 
WRITE 


LS 


20 


6,*) 'THIS PROGRAM TAKES YOUR INPUT AND! 
WRITE(6,*) 'PRODUCES GROUPING CRITERIA USED IN THE! 
WRITE(6,*) 'GROUPING OF THE INVENTORY INTO MUTUALLY’! 
WRITE(6,*) 'EXCLUSIVE GROUPS. THIS SHOULD REDUCE ' 
WRITE(6,*) 'THE AMOUNT OF TIME NEEDED TO MATCH! 
WRITE(6,*) 'PEOPLE TO BILLETS. ENTER THE! 

WRITE (6,*) 'NUMBER OF CRITERIA YOU WISH TO USE! 
WRITE(6,*) 'FOR THIS PARTICULAR PREPROCESSING RUN.' 
WRITE(6,*) 'REMEMBER THAT THAT THE TOTAL NUMBER OF! 
WRITE(6,*) 'GROUPS CREATED WILL BE THE! 

WRITE(6,*) 'CROSS PRODUCT OF THE NUMBER OF CHOICES' 
WRITE(6,.*) 'FOR EACH CRITERIA. TOO 

WRITE(6,*) 'MANY GROUPS (>60) WILL MAKE THE ENTIRE! 
WRITE(6,*) 'MATCHING PROCESS VERY, VERY SLOW. ' 
WRITE(6,*) | 

WRITE(6,*) 'PLEASE MAKE SURE THAT ALL CHARACTER' 
WRITE(6.*) ‘ANSWERS ARE UPPER CASE - THANK YOU! 
PRENUM = 1 

WRITE (6,%*) 'USE RESTR (UR) AS A CRITERIA (Y/N) ?! 
READ(5, 5) ar 

WRITE (1,5) URANS 

WRITE (6 , ) "EXPERIENCE (EXP) AS A CRITERIA (Y/N) ?! 
READ ( S) PxFANS 


(1,5) EXPANS 
WRITE Je USE SEX AS A CRITERIA (Y/N) ?! 
READ ( 5) § NS 
WRITE (1 5)" SE XANS 

®) ‘USE ANY ADDITIONAL CRITERIA (Y/N) ?' 


WRITE 
READ(5,5) MORE 
WRITE (1,5) 
IF (MORE 


READ(5,4) CRNAME 


A 

WRITE (6,*) 'ENTER THE NUMBER OF CHOICES 
FOR THE CRITERIA! 

READ(5,2) CHNUM 

PRENUM = PRENUM * CHNUM 

WRITE (1.2) CHNUM 


CONTINUE 
GOTOTLsS 
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BND IF  - 
5 FORMAT (Al) 
200 STOP 
END 
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THE 
THE 


+ OF OF 


> 2S ion 


Gc 
* READ IN D 


(MO 
* CHECK FOR BLANKI DATA 


15 


GRNINV FORTRAN 


DATA FOR THE GROUPING COMES FROM 
"GROUP CRIT" FILE: 


PROGRAM GRINV 
CHARACTER*1 EXP,SEX,UR,E(2), (2) U 
CHARACTER*1 SE RANS , CHVAL 
CHARACTER*1 MORE,SMORE,B1(4), Eta 
CHARACTER*1 CGROUP, PGROUP,$V(128,5 
CHARACTER*3 MCC 
CHARACTER*5S TANS 
CHARACTER*6 CRNAML, CRNAM2 
INTEGER GD,PMOS,AMOS1,AMOS2, INVNUM 
INTEGER I, J, K, M. N, CHNUM1, 
INTEGER NC(53,C1,C2, oi, C4,C5 
OPEN (UNIT=1, FILE 
OPEN (UNIT=2, FILE 
OPEN (UNIT=4, FILE 
OPEN (UNIT=7, FILE= 
OPEN (UNIT=8, FILE= 
THE STANDARD "VALUES 
SvCn) 'Q! 
SV oe 

Jat 
12! 
i'm! 


eo 


W— 


=~ 6 §€ 


ed iT] HHH ODODOONENEN! 


Rye -NNN YW 


~ » 
ee 


Nou eo Jo a. 


a 








FROM GROUP CRIT FILE 
ANS 
TANS 


NNNN 
TANS (3: 2 
N= 0 
IF (EXPANS EQ. 
IF (URANS .E 





Ny!) oe Nee 
'y') N 


wm ods 
yt) N- =N+t+1 


ORE 
.EQ. 'Y') THENN=N#1 


CONTINUE 
Oe ee 
TANS (5:5 SMORE 

IF (SMORE .EQ. 'Y') THEN N = 
FORMAT (Al) 


N 


Z 
* CHECK FOR BLANK2 DATA 


TF (SMORE EQ. 'y!) THEN 
READ(1,3) CRNAM2 
FORMAT (AG) 

READ(1,5) CHNUM2 

DO 20 J = 1,CHNUM2 
READ(1,4) CHVAL 
FORMAT (A1) 
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‘GROUP CRIT A', 
'NMSORT INV A', 
'RNMG FILE A', 
'RNMG PAMOS1 A', 
'RNMG PAMOS2 A', 


THIS PROGRAM CLASSIFIES EACH ENTRY IN THE INVENTORY 
BY ITS GROUPING CATEGORY AND I7TS HOS CATEGORY. 


THE MOS CATEGORIES ARE: 
PMOS ONLY, PMOS AND ONE AMOS, PMOS AND TWO AMOS. 


ea 4 ,EXPANS 


v(5 
§ ,BLANK1 , BLANK2 


CHNUM2 
STATUS = 'OLD 
STATUS = 'OLD' 
STATUS = 'NEW' 
STATUS = 'NEW! 
STATUS = 'NEW' 


ne 


5 
20 


i6)3) 
WRITE (6 


FORMAT (11) 
B2(J) = CHVAL 


CONTINUE 
Dae 


,*) 'THE VALUE OF N = ',N 


* MAKE THE BASIC VALUE ARRAY AND SET GROUPS 
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80 
‘e 


c 


WRITE 
WRITE 

* SET GROUPS FOR BASIC THREE 
INE Oy E 


GOT 
ELSE TF (N te THEN 
A = 


IF (TANS(4:5) .NE. 'NN') GOTO 200 
Te (EXPANS rEQs !Y') [UREN 


IF (URANS .EQ. 'Y¥') THEN 
IF (SEXANS .EQ. 'Y') ¢3 
LSE 


tt tt 
WwW WW 


IF (SEXANS .EQ. 'Y¥') C2 


gENDIF 
IF (URANS .EQ. 'Y') THEN 
era 2 


IF (SEXANS .EQ. 'Y') C2 
IF (SEXANS .EQ. 'Y') Cl 


END IF 
WRITE 
WRITE 


ENDIF 
67) ele =! Cl 
by ecg e= "C2 
Noe (Ole Clie= "C3 
6,*) 'C4 = ',C4 
op) 'Csu=)" C5 


.EQ. 1) THEN 
READ(Z,11,END = 200) PMOS,GD,AMOS1,AMOS2, 
V(1) .MCC,V(2$V(3),JMOS, INVNUM 
IF (V(Cl) EQ. ‘sv(cl, 1)) THEN 
CGROUP 


EESe 
CGROUP = ‘2! 
END Ge 
IF ((AMOS1 .EQ. 0) .AND. (AMOS2 .EQ. 0)) THEN 
ire ¥ 12 )eEuos GbPAMOs | AMOS2 v(1) ,MCC,V(2), 


WS). JMOS, INVNUM, CGROUP 


((ayosa .NE. 0) .AND. (AMOS2 .EQ. 3 OR. 

AMOS1 E 0) .AND. (AMOS2 .NE. 0) HEN 
WRITE(7,12) PMOS,GD,AMOS1,AMOS2 ,V(1), MCC via), 
ae V(3),JMOS, INVNUM, CGROU 


((AMOS1 .NE. 0) .AND. (AMOS2 .NE. 0)) THEN 


iE 
WRITE(8, HEX. PMOS ,GD,AMOS1 ,AMOS2 V(1)M Ce, 
END F v(3), JMOS, INVNUM , CGROUP 


READ(Z, 


F (v(Cl 
IF (V 
G 


d paek PMOS ,GD,AMOS1,AMOS2, 
(2) MCC, V(2), NG , MOS , INVNUM 
) $V(C1,1)) THEN 
(C2 720, ‘Sv(C2, 1)) THEN 
CGROUP = 


SE 
CGROUP = '2' 
LSE 
PEM VC e2 )meenO. ov (eZ, 1 ))) THEN 
CGROUr ==" 3" 


LSE 
CGROUP = '4'! 
aa Ig 


END 
1g ((amos1 .EQ. 0) .AND. (AMOS2 .EQ. 0)) THEN 
WRITE(4,12) PMOS,GD,AMOS1,AMOS2 roby MGC, 
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C V(2),V(3),JMOS , INVNUM, CGROUP 


IF 
(AMOS1 NE. 0?) 5 (AMOS2 .EQ. 0}} OR. 
AMOS1 AND. “(AMOS2 .NE. 0))) THEN 
WRITE (7,12) z és° les AMOS1,AMOS2,V(1),MCC,V(2), 


v(3),JMOS , INVNUM, CGROUP 


IF ((AMOS1 .NE. 0) . (AMOS2 .NE. 0)) THEN 

WRITE(8,12) PMOS,GD, “AMOS1: AMOS2 VC, MCC Ow Zoe 
o Vie JMOS, INVNUM, CGROUP 

END IF 

GOTO 80 


ELSE 
90 READ(2,11,END = 
c "Vv 


1 
(Vv 


aaa 
IF (c3)° 


ELSE 
IF (V(C3) 
CGROUP 


V(C2) 
F (V(c3) 
CGROUP = 


ae 


SE 
CGROUP = 


END IF 
ELSE 
IF (vies) 
CGROUP 


SE 
CGROUP = 


END IF 
END IF 

IF ((AMOS1 . EOS. 

WRITE(4,12) P OS 

c V(3) 
ue 

(AMOS1 .NE. 

c AMOS1 EQ. - 

WRITE(7,12) P OS 

e V(3) 
END IF 

IF ((AMOS1 

WRITE (8,12) 


-NE. 0) 
PMOS ,GD,AMOS1,AMOS2 VG Mee, V(z2), 


200) PMOS,GD,AMOS1,AMOSZ, 
DeMee- V2) V(3), JMOS, INVNUM 
“ae FORMAT(14,1X, ie, Tas I 


cco 14 iy Al, 1X AS, is, 


N 
sv(C2 1)) THEN 
5. ‘SV(C3, 1)) THEN 


er 


Eee mae THEN 


14g! 


.EQ. SV(C2,1)) THEN 


EQ; SV(C3, 1)) THEN 


6! 


-EQ. SV(C3,1)) THEN 


te! 


THEN 


.AND. (AMOS2 .EQ. — 


0) ) 
bp’ AMOS1 , AMOS2 .V(L) McC, 
, JMOS , INVNUM , CGROU 


0) Ne epee: ee ° 03) 3 
0). (AMOS2 .N 0) 
,GD, "AMOS1: AMOS2 WL, MEE 
,JMOS, INVNUM , CGROUP 


-AND. (AMOS2 .NE. 0)) THEN 


c v(3),JMOS , INVNUM, CGROUP 


END IF 


i FORMAT(14,1X,11,1X,14,1X,14,1X,Al 
C Al, 1X, Al ixre ss 


GOTO 90 

END IF 
200 STOP 
END 


1D Gy oe. @ 
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GRMINV FORTRAN 


THIS PROGRAM CLASSIFIES EACH ENTRY IN THE INVENTORY 
BY ITS GROUPING AND MOS CATEGORY. 

THE DATA FOR THE GROUPING COMES FROM 

THE "GROUP CRIT' FILE. THE 'MOS CATEGORIES ARE: 
PMOS ONLY, PMOS AND ONE AMOS, PMOS AND TWO AMOS. 


PROGRAM GRINV 

CHARACTER*1 EXP,SEX,UR,E(2),S(2) 
CHARACTER*1 MORE, SMORE,B1(4$ ,B2( 
CHARACTER*1 SEXANS, URANS, CHVAL,V 
CHARACTER*1 CGROUP, PGROUP,SV(128 
CHARACTER*3 MCC 

CHARACTER*S TANS 

CHARACTER*6 CRNAM1, CRNAM2 
INTEGER GD,PMOS,AMOS1,AMOS2, INVNUM 
INTEGER I M. N, CHNUM1, CHNUM2 

INTEGER Nc(S), Cl ele C3, C4,C5 

OPEN . FILE = 'GROUP CRIT A', STATUS = 'OLD') 
'MOVER INV A', STATUS = 'OLD') 
'MG FILE A', STATUS = 'NEW' ) 
'MG PAMOS1 A', STATUS = NER 


% OF OF 


a 


O 

rd 

mi 

rae 

m4 ie 

Hj 
| 

rr 

is 

cS 

mM 
iu ite 


i 
a 
7). = 
0 8 | 'MG PAMOS2 A'. STATUS = 'NEW! 
* SET VALUES 


ar | 
a 
tm 
09] 
» 
oO 
_ 
wm 
Oo 


~~ *«s »s» s* Ss 


Ww 
< 
rnd twwRerenrmbp 
tlRRMeHPOdDdOOONKNKENE 


C 
“READ IN D 
ae 


TE (EXeaS 4EO- ae hls N 1 
IF (URANS .EQ. 'Y') N 


Salone oe 


RE 
IF (MORE £0. set) THENN=N+#+1 
* CHECK FOR BLANKI DATA 
IF (MORE .EO. 'Y') THEN 
READ 2) 


15 CONTINUE 
Be g} SMORE 
DANS (5: 5 MORE 
Te (SMORE oO, ee rHeNiON = N + 1 


Z FORMAT (Al 
* CHECK FOR BLANK2 DATA 


IF (SMORE EQ. Y') THEN 
READ(1, 3) ¢ RNAM 
3 FORMAT (A6 


READ(1,5) CHNUM2 
DO 20 J = 1,CHNUM2 
READ(1,45 CHVAL 
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20 


W 6, 
4315) 9)35 eae iN GE BASIC THR 
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80 
C 


C 


CONTINUE 
END IF 
END IF 


WRITE(6,*) 'THE VALUE OF N = ',N 
* MAKE THE BASIC VALUE ARRAY AND SET GROUPS 
IF (TANS(4:5) .NE. 'NN') GOTO 200 

IF (EXPANS  EOueae) ) DREN 


IF OS MOORE el) susl ant 


IF (SEXANS .EQ. 


LSE 
IF (SEXANS .EQ. 
ENDIF 


it 
i) 


Yea acs 
IY See 2 


i 
UJ) 


SE 
if (URANS SHO.) Vee mee 


IF (SEXANS .EQ. 


ELSE 
IF (SEXANS .EQ. 
NDIF 


END IF 
WRITE (6, 
WRIIE (co 
WRITE (6, 
WRITE (6, 
REE 


"ee 
OQ 
UJ) 


eS 
E 


(211 7EN 
READ(Z,11,END = 


(2) 

nS 
a0} 
MM WW iW 
a 


SE 
CGROUP = '2' 


it 
i) 


CYA ETCZ 
ae 


i 
GJ) 


200) PMOS,GD,AMOS1,AMOS2, 
v(1),MCcc, iV (2) v(3),JMOS, INVNUM 
IF (V(C1) EQ sviciel)) 
CGROUP 


THEN 


END IF 
((AMOS1 . EQ. 0 .AND. (AMOS2 .EQ. 0)) THEN 
WRITE (4, 12) PHOS, Loy AMOS1,AMOS2,V(1) ,MCC,V(2), 
: V(3),JMOS , INVNUM, CGROUP 
(AMOS1 NE. 5? .AND. (AMOS2 .EQ. 0 OR. 
EQ. 0) .AND. (AMOS2 .NE. THEN 
WRITE(7, °F) “PMOS ,GD,AMOS1,AMOS2,V(1),MCC,V(2), 
V(3),JMOS , INVNUM, CGROUP 
END IF 
IF ((AMOS1 .NE. 0) .AND. (AMOS2 .NE. 0)) THEN 
WRITE(8,12) PMOS,GD,AMOS1 , AMOS2 ,V(L), MCC,V(2), 
V(3),JMOS, INVNUM, CGROUP 
END IF 
GOTO 
ELSE IF CN 1a 2) THEN 
READ (2 ND, 200) PMOS,GD,AMOS1,AMOS2, 
(1),Mcc,V(2 v(3) JMOS , INVNUM 
IF (von) VEO. SV(C1,1)) THEN 
F (V(C2) EQ. “Sv(C2, 13) THEN 
OUP = 
ELSE 
CGROUP = ‘2! 
END IF 


LSE 
IF (V(C2) .EQ. SV(C2,1)) THEN 
CGROUP = *3! 


LSE 
CGROUP = '4'! 


END IF 


END IF 
IF ((AMOS1 .EQ. 0) 


(AMOS2 .EQ. 0)) THEN 
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WRITE(4,12) PMOS,GD,AMOS1 ,AMOS2 (1), MCC,V(2), 
C v(3) ,JMOS , INVNUM, CGROU 


(AMOS1 »NE. ae .AND. (AMOS2 .EQ. 2} OR. 
AMOS1 .EQ. 0) .AND. (AMOS2 .NE. 0) THEN 
WRITE(7,12) PMOS,GD,AMOS1,AMOS2,V(1),MCC,V(2), 
Cc ad ecy JMOS , INVNUM, CGROUP 
YP B}3 
((AMOS1 .NE. 0) .AND. (AMOS2 .NE. 0)) THEN 
WRITE (8. 12) PMOS,GD,AMOS1,AMOS2 V(1), Mee, V(2) 
& V(3), ,JMOS, INVNUM, CGROUP 
END IF 
GOTO 80 


ELSE 
90 READ(2,11, ee 200) PMOS,GD,AMOS1,AMOS2, 
C Vil) SMEG. (coe v(3), wos; INVNUM 
fF: FORMAT (14,1X, 1 x 14,1X, I4 1X, A1,1X,A3,1%, 
c Al, KAAL 1x, 14/1%, ES 
a ale Conky ste: EO. sci THEN 


IF (V(C3 129, va) He THEN 
Se = 


E 
CGROUP = '2' 
END IF 


LSE 
IF (V(C3) .EQ. SV(C3,1)) THEN 
CGROUP = "3! 


f 


SE 
CGROUP = ‘4! 


LSE 
PG Z2) SV( C22 HEN 
; ir cate 35°29. 5 Stes ayy THEN 


16! 


Om 
OQ 
wa 
O 
cS 
tJ 

il 


ELSE 
Paety (C3) 22g Ce a THEN 


LSE 
CGROUP = '8' 


((AMOS1 .EQ. 0) .AND. (AMOS2 . 0)) T 
WRITE (4, 12) PMOS,GD,AMOS1, AMOS2 Oth) mee, 
C V(3),JMOS , INVNUM, CGROUP 


IE}3 hee ~NE. 05” -AND. (AMOS2 .EQ. 3 4 


THEN 
(2) 


f 


AMOS1 Boece -AND. (AMOS2 .NE. 0) 
WRITE(7,12) PMOS, bn’ AMOS1 ,AMOS2 ie). MCC 
G Vi3)e JMOS, INVNUM, CGROUP 
END LF 
IF ((AMOS1 .NE. 0) .AND. (AMOS2 .NE. 0)) THEN 
WRITE(8,12) ERK GD,AMOS1,AMOS2, ,V(L), AoE V (2), 


OR 
THEN 
V(2) 


C V(3),JMOS, INVNUM, CGROU 
END IF 
1 FORMAT (14,1X,1I1,1X,14,1X,14,1X,A1,1X,A3,1X, 
C Ai oe Al Ix 14, 1%,05,1%.ad) 
GoTo 90 


EN 
ZO0RS Ler 
END 
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EISORT SAS 


* THIS PROGRAM SORTS THE El CARDS BY BOD; 
CMS FILEDEF FONE DISK EXPANDED El A; 
CMS FILEDEF FTWO DISK EXP El A(RECFM F LRECL 80 BLOCK 80; 
DATA DONE; 
INFILE FONE; 
INPUT BOD : 6-14 PRI $ 16 GD $ 18-19 EXP §$ 21 
MOS 23-26 OT $ 28-35 AMOS1 $ 37-40 AMOS2 $ 42-45 
UR $ 47 SEX $ 49 MAC $ 51-58; 
PROG SORT; 
BY BOD; 
DATA _NULL_; 
SET DONE; 
FILE Bo tee 
PUT BOD 6-14 PRI 16 GD 18-19 EXP 21 MOS 23-26 
OT 28-35 AMOS1 37-40 AMOS2 42- 45 UR 47 
SEX 49 MAC 51-58; 


66 


EXPEl FORTRAN 


THIS PROGRAM EXPANDS THE El CARDS THAT HAVE MORE THAN 
ONE GRADE PER CARD. IT ALSO TRANSFORMS THE EXP AND UR 
GRO PLEEDS TO BE THE SAME AS THE INVENTORY. 
HERE IS THE FUNCTION CNUM THAT RETURNS THE NUMBER 
VALUE OF A STRING 

INTEGER FUNCTION CNUM (CMOS) 

CHARACTER*4 CMOS 
INTEGER T(1: :4),I 


CHARACTER*1 1 c(i 4) 


XH 4 HF 


IF (¢(T) -EQ. '*1) THEN 
ELSE TF (C(I) .EQ. '1') THEN 
ELSE IF (C(I) .EQ. '2') THEN 
ELSE TF (C(I) .EQ. '3') THEN 
ELSE TF (c(t) .EQ. '4') THEN 
ELSE TF (C(t) .EQ. '5') THEN 
ELSE TF (C(I) .EQ. '6') THEN 
ELSE TF (C(I) .EQ. '7') THEN 
ELSE rf (C(I) .EQ. '8') THEN 
ELSE TF (C(I) .EQ. '9') THEN 
"ELSE 1F (C(I) .EQ. '0') THEN 
EN 
23 CONTINUE 
cNuM = T(1)*1000 + T(2)*100 + T(3)*10 + T(4) 
* THIS IS THE END OF CNUM 

PROGRAM EXPE1 

CHARACTER*1 HIEXP,LOEXP,SEX,UR,PRI,EXP 

CHARACTER*1 P1,P3,P4,A11,A13,A14,A21,A23 ,A24 

CHARACTER*2 HIGD,LOGD ,GD,G(6) 

CHARACTER*4 INPMOS, INAM1, INAM2 

CHARACTER*8 OT,MAC 

CHARACTER*9 BOD 

INTEGER 1I,N,F,B,PM(0:9999) , PA(0:9999) , PMOS, AMOS1 


INTEGER CNUM, E1NUM, OGD, AMOS2 
DATA PM, He / 10000 0, 10000*0 / 


OPEN (UNIT = 1, FILE = 'FULL El A', STATUS = 'OLD') 
OPEN (UNIT = 2, FILE = 'EXPANDED E1 A', STATUS = 'NEW') 
OPEN (UNIT = 3, FILE = 'PMOS Bl A’, STATUS = 'OLD') 
OPEN (UNIT = 4, FILE = 'ADMOS Bl A', STATUS = 'OLD') 
ELNUM = 0 
* READ IN THE MOS ARRAY 
10 READ(3,7,END = 30) INMOS , MOSNUM 
PM(INMOS) = MOSNUM 
GOTO 10 
20 READ(4,7,END = 25) INMOS,MOSNUM 
PA(INMOSS = MOSNUM 
GOTO 20 
C SET UP THE GRADE ARRAY 
25 G(1) = 'WO! 
G(2) = '02! 
G(3) = '03! 
G(4) = '04! 
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ee a 


G(5) = '05! 
G(6) = '06! 
C READ IN ORIGINAL El DATA 
30 READ (1,3,END = 200) BOD,PRI,LOGD,LOEXP,HIGD ,HIEXP, 
C INPMOS ,OT, INAM1, INAM2, UR,SEX,MAC 
3. FORMAT (5X,A9,1X,Al,1X,A2Z,1X,A1,1X,A2,1X,Al,1X,A4,1X, 
A8.1X.A4.1X,A4,1X,A1,1X,Al1.1X,A8) 
TARE OUT THE PRIORITY 4 AND 5'S 
IF (PRI .EO. '4' .OR. PRI .EQ. '5') GOTO 30 
C CONVERT THE EXPERIENCE TO A NUMBER 
IF (LOEXP .EQ. 'N') LOEXP = '0! 
IF (LOEXP .EO. 'E') LOEXP = '1! 
CONVERT THE USE RESTRICTION TO A NUMBER 
IF (UR .EQ. 'U') UR = ‘1! 
IF (UR .EO. 'L') UR = '2! 
CONVERT THE MOS TO AN INDEX 


Pl = INPMOS(1 31 
PS = INPMOS ar 
P4 = INPMOS(4:4 
All = INAM1(1:1 
A1l3 = INAM1(3:3 
A1l4 = INAM1(4:4 
A21l = INAM2(1:1 
A23 = SE Aen 


4) 

PMOS = 240 - AMOS ONLY El CARD 
PMOS = 239 - OFFICER TYPE El CARD 
PMOS > 1000 - OCC FIELD OR SUBOCC FIELD PMOS El CARD 
AMOS > 1000 - OCC FIELD OR SUBOCC FIELD AMOS El CARD 

IF (Pl .NE. '*' .AND. P4 .NE. ' ') THEN 

PMOS = PM (CNUM(INPMOS ) ) 
ELSE IF (P1 .£Q. '*') THEN 
Se=) 240 


ELSE IF (PL. EQ. ' 1) THEN 


iy 
ELSE IF (P3 .EQ. '*' .AND. P4 .EQ. ‘'*') THEN 
PMOS = CNUM INPHOS)_ + 1000 


P4 N 
PMOS = ” ONO INPMOS) + 1000 

END IF 
CONVERT AMOS1 
IF (Al4 EQ. ‘kt .AND. All .EQ. '*') THEN 


AMOS1 
ELSE IF (a13 EQ. '*! AND. Al4 . EQ.) '*")) HEN 
AMOS1 = rea INAM1) + BOG 





AMOS 
ELSE IF (A 11 .NE. '** .AND. Al4 (NE. "=" ) Shee 
AMOS 1 = PA(CNUM(INAM1)) 
END IF 
CONVERT AMOS2 
IF (A24 -EQ. tk! .AND. A2Z21 .EQ. '*') THEN 
AMOS2 = 0 
aa OS) (A23 .EQ. '*' AND. A24 .EQ. '*') THEN 
OS2 = CNUM(INAM1) + 1000 
ELSE wae, (324 SEQ ae E 


AMOS 
ELSE | IF (A21 .NE. '*' AND. A24 .NE. '*') THEN 
OS2 = PA(CNUM(INAMZ)) 
END ATF 
EXPAND THE GRADE AND EXPERIENCE 
IF (HIGD .NE. ' ') THEN 


1G] gia Sy B)Bale ant HIEXP = ‘0! 
TE CHL EAE es Eh ) OHDEXP == 
DO 40 I = 


IF (LOGD - Gi yas = 0 
40 CONTINUE 
ne GO = aL 
IF (HIGD FO. PEO i =u 
50 CONTINUE 
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DO 60 I = F,B 
ig Gl NE. Be THEN 
EXP = LOEXP 
ELSE 
EXP = HIEXP 
END IF 
E1NUM = E1NUM + 1 
WRITE (2,4) E1NUM,BOD,PRI,I,EXP,PMOS, 
S OT,AMOS1,AMOS2,UR,SEX,MAC 
60 CONTINUE 


GOTO 30 
END IF 
ENUM = E1NUM + 
IF (LOGD EQ. 03") THEN 
ELSE IF " (LOGD .EQ. '02') THEN 
OGD = 2 
ELSE IF _ (LOGD .EQ. '04') THEN 
ELSE TF _ (LOGD .EQ. 'WO') THEN 
ELSE IF (LOGD .EQ. '05') THEN 
OGD = 5 
ELSE IF (LOGD .EQ. '06!) THEN 
pose = 
WRITE oO 4) E1NUM,BOD,PRI,OGD,LOEXP,PMOS, 
C OT, AMOS1,AMOS2,UR,SEX,MAC 
GOTO 30 
4 FORMAT (I4,1X,A9,1X,Al1,1X,1I1,1X,A1,1X,14,1x, 
C 8'1X'14'1xX,14,.1x'Al,1X,A1,1X,A8) 
7 FORMAT (14,1X, "3 


200 STOF 
END 
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GRE! FORTRAN 


* THIS PROGRAM CLASSIFIES EACH ENTRY IN THE El CARDS 
* BY ITS GROUPING CATEGORY AND ITS MOS CATEGORY. 
DATA FOR THE GROUPING COMES FROM 
* THE 'GROUP CRIT! FILE. THE MOS CATEGORIES ARE: 
1 = («PHOS AND] Zeelies 
PMOS AND 1 AMOS 
PMOS ONLY 
OCC FIELD/SUBOCC FIEED 
OFFICER TYPE 
AMOS ONLY 


PROGRAM GRE1 
CHARACTER*1 EXP,SEX,UR,EXPANS , SEXANS , URANS 
CHARACTER*1 MORE,SMORE,B1(4),B2(4), svi5), CHVAL, PRI 
CHARACTER*1 $V(128,6) , BLANK1 , BLANK2 
CHARACTER*2 CGROUP ,PGROUP 
CHARACTER*5 TANS 
CHARACTER*6 CRNAM1, CRNAM2 
CHARACTER*8 OT,MAC 
CHARACTER*9 BOD 
INTEGER GD,PMOS,AMOS1,AMOS2,E1NUM, JMOS 
INTEGER I, J, K, L, M, N, CHNUM1, CHNUM2 
INTEGER NC(5),C1,C2, c3, C4,C5 

UNIT , FILE = 'GROUP CRIT A', STATUS = 'O 

‘EXPANDED El A!, STATUS = ' 

'GROUPE] FILE A', STATUS 
'PGROUP ARRAY A’, STATUS 


+ 
ar | 
aL 
e9 


Ht HH OH Ft 
DOmnhP WH 
on 
Jj 
ad 


> CIN Fs 
tr] *] *r]~ 
J 
he 
res 
ie | | 


J 
“SET fue STANDARD VALUES 


Hud ddd dau 
= 


Wn 
< 
Hud dd dWwWwrorWWwRrR YN 


c 
* READ IN DAT 


Z 

&| 

2 

3 

I 

I. 

i 

0 

0 

0 

0 

0 

A 
READ(1 
1 

1 


IF (EXPANS .EO. YO N=N+1 
IF (URANS .EQ. 'Y') N=N 41 
IF (SEXANS .EQ. 'Y') N=N41 


RE 
IF (MORE .EQ. 'Y') N=N#1 
* CHECK FOR BLANK1 DATA 
IF (MORE .EO. 'Y') THEN 
READ(1,3) CRNAM1 
READ(1,5) CHNUM1 
DO 15 J = 1,CHNUM1 
READ(1,4) CHVAL 
Bl(J) = CHVAL 
15 CONTINUE 
sae SMORE 
TANS(5:5) = SMORE 
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IF (SMORE .EQ. 'Y') N=N#1 
Z FORMAT (A1) 
* CHECK FOR BLANK2 DATA 
IF (SMORE 132 'y') THEN 
READ(1, 3) \C RNAM2 


3 FORMAT 
READ(1, Bs CHNUM2 
DO 20 J = 1,CHNUM2 
READ(1,4) CHVAL 
4 FORMA (al) 
5 FORMAT(TI1 
B2(3) = CHVAL 
20 CONTINUE 
END IF 
END 


WRITE (6, *) 'THE VALUE OF N = ',N 
* MAKE THE BASIC VALUE ARRAY AND. SET ‘GROUPS 
IF (TANS(4:5) .NE. 'NN') GOTO 250 
IF (EXPANS .EQ. 'Y¥') THEN 
IF (URANS .EQ. 'Y') THEN 
IF (SEXANS .EQ. 'Y¥') C3 


E 
IF (SEXANS .EQ. 'Y¥') ¢€2 
DIF 


LSE 
IF (URANS .EQ. 'Y!) THEN 
ight (SEXANS .EQ. 'Y') C2 = 3 
IF (SEXANS .EQ. 'Y') Cl = 3 
NDIF 


END IF 
WRITE (6,*) ‘Cl = ',Cl 
WRITE (6,*) 'C2 = ',C2 
WRITE (6,*) 'C3 = ',C3 
WRITE (6,*) 'C4 = ' C4 
WRITE (6,*) 'C5 = '(CS5 
* SET GROUPS FOR BASIC THREE 
IF (N EQ. 1) THEN 
70 READ(Z,11,END = 200) E1NUM,BOD,PRI,GD sv (2) , 
C PMOS ,OT, AMOS1,AMOS2,V(1),V(3) ,MAC 


IF (v (cl) -EQ. "§v(C1,1)) THEN 
CGROUP = ‘0! 


ELSE IF (v(cd) | .EQ. SV(C1,2)) THEN 
CGROUP 


SE 
CGROUP = '2' 


END IF 
* CHECK THE PMOS/AMOS/OT 
IF (PMOS .LT. 169 .AND. AMOS1 .NE. O .AND. 
AMOS2 .NE. 0) THEN 
PGROUP = '1! 
ELSE IF (PMOS .LT. 169 AND. _ ( (AMOS1 -EQ. 0 
.AND. AMOS2 .NE. 0) (AMOS1 E. 0) 
-AND. (AMOS2 .EQ. 6y55* THEN 
PGROUP = '2' 
ELSE IF (PMOS .LT. 169) THEN 
PGROU 


R 
po casan Re .GT. 1000)THEN 
Eh eeata vee EQ. 239) THEN 


Else IF (PHOS -EQ. 240) THEN 
AGE OUP "= 'G! 


END 

WRITE (3,12) E1NUM,BOD,PRI,GD,V 
C AMOS1,AMOS2,JMOS,V 
c MAC, CGROUP , PGROUP 


an 


gh) 


80 
Ee 


GOTO 70 
ELSE IF su ot 2) THEN 
1 Nba 


READ ( 200) E1NUM,BOD,PRI,GD,V(2), 


PHOS, om AMOS1, 


ie) oe, ee eres »V(1),V(3),MAC 
1g (lez 35°: LER. su(C2. iy) THEN 


CGROU 
ELSE IF (v (C2) +EQ. SV(C2,2)) THEN 


Se 
CGROUP =F Z. 


END IF 
ELSE IF wuss?) .EQ. SV(C1,2)) THEN 
IF (V (c C2) EQ; "Sv(C2, 1)) THEN 


BESEw Le (v(c2) ~-EO. SV (C2, 2) japrimn 
CGROUP = '4' 


SE 
EGROUP =a 5‘ 


END IF 

IF (v(c2) 2EQ, SV(C2, /1)) THEN 

ELSE IF (v(C2) .EQ. SV(C2,2)) THEN 
CGROUP = ‘7! 
CGROUP = ‘8! 

END IF 


END 
x CHE GK one ee eeocee 


90 


an 


PMOS .LT. 169 .AND. AMOS1 .NE. O .AND. 
AMOS2 -NE. 0) THEN 


PGROU 
ELSE IF (PMOS .LT. 169 .AND. (erst .EQ. 0 
.AND. AMOS2 .NE. 0) OR. AMOS1 .NE. 
.AND. (AMOS2 .EQ. 0))) T 
PGROUP = '2! 
ELSE IF (PMOS_.LT. 169) THEN 
ROUP = '3! 


PG 
ELSE IF (PMOS .GT. 1000)THEN 
PGROUP = '4! 

ELSE IF (PMOS .EQ. 239) THEN 

PGROUP = '5! 
ELSE TF (PMOS EQ. 240) THEN 

PGROU 
END 
WRITE (3, 12) BOD,PRI,GD,V(2) ,PMOS,OT, 

AMOS1, AMOS2, JMOS yl, v(3),MAC, 


MAC, CGROUP, PGROUP 
GOTO 80 


USE 
WRITE(6,*) ‘INSIDE N = 3 LOOP 


READ(2,11,END = 200) E1NUM, A, PRE GDRVICe) 
PMOS ,OT, AMOS1 
AMOS2 av(t), v(3),MAC 
y EGn SV(C1 
(C2)~.EQO. SV(C2 ae THEN 
v(c3) EQ. SV(C3,1)) THEN 


RO 
ELSE IF (V(C3) .EO. SV(C3, 2) He 
CGROUP = '‘1' 


ELSE 
CGROUP = ‘2! 


END IF 
ELSE IF eee 9: 8 BIN oe Soe 
Bhd (ies ViGey 1)$ 


CGROUP = 
ELSE IF ( x .EQ. SV(C3,2)) THEN 


wae 


1g! 
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0) 


ELSE 
CGROUP = '5! 
END IF 
ELSE 
IF (V(C3) .EQ. SV(C3,1)) THEN 
CGROUP = 6! 
ELSE IF (V(C3) .EQ. SV(C3,2)) THEN 
CGROUP = '7! 
SE 
CGROUP = '8! 
END IF 
END I 
ELSE IF Ae .EQ. SV(C1,2)) THEN 
IF (V(C2) .EQ. SV(C2,1)) THEN 
ie (oC es) EQ; SUER 1)) THEN 
CGROU 


ELSE IF (vic3) .EQ. SV(C3,2)) THEN 
CGROUP = '10! 


LSE 
CGROUP = ‘11! 


END IF 
EoSaer ays?) 9. 8 a ans 2)) THEN 
IF (V¢ V.CC3. 15) THEN 
AGROUP aa 


ELSE IF (vic3) .EQ. SV(C3,2)) THEN 
CGROUP = ‘13! 


ELS 
IF (V(C3) .EQ. SV(C3,1)) THEN 
CGROUP = "15! 
ELSE IF (V(C3) .EQ. SV(C3,2)) THEN 
CGROUP = '16! 


CGROUP = '17' 
IF 


E 
IF (V(C2) .EQ. SV(C2,1)) THEN 
TF (U(c3)° EQ. *50(C3;1)) THEN 


BOSE Lf (vic3)~ nO.) SV (G22) )) THEN 
CGROUP = '19! 


SE 
CGROUP = '20' 
END IF 
ELSE IF (V(C2 


R; SV (C2 2)) THEN 
IF (V(C3) "80; Vi(Ca mes 
CGROUP = 
ELSE IF (V(C 35 -EQ. SV(C3,2)) THEN 
CGROUP = '22 
CGROUP = '23! 
END IF 


LSE 
Poe (es) EQ: sv(C3, 1)) THEN 
CGROUP 


= 2 
ELSE IF (V(C3)_.EQ. SV(C3,2)) THEN 
CGROUP = '25 


SE 
CGROUP = '26' 
IF 


END I 
Geecneck, THE PMOS/AMOS/OT 
Pee(eMOs -LE.s 169 .AND. AMOSI .NE. O .AND. 
AMOS2 .NE. 0) THEN 


= 'j! 


PGROU 
ELSE IF (PMOS .LT. 169 .AND. ({AMOS1 .EQ. 0 
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fe AND. AMOS2 .NE. 0) OR. (ANosl 
C -AND. (AMOS2 .EQ. 0))) T 


PGROUP = 

ELSE IF (PMOS_.LT. 169) THEN 
PGROU 

ELSE IF (PMOS ‘GT. 1000) THEN 
PGROUP = '4! 

ELSE IF (PHOS. -EQ. 239) THEN 


ELSE IF FHS, -EQ. 240) THEN 
PGROU 


END 
WRITE (3, 12) E1NUM,BOD,PRI,GD, Mieytauas ,Ok; 


S AMOS1, ,AMOS2, JMOS ,V 
G: MAC, CGROUP, PGROUP 


a 


F 
MAKE ARRAY FOR PGROUP ARRAY FOR MATCHING ROUTINE 
200 WRITE(4,9) N 
IF (N. EO: 3} THEN 
WRITE(4,9) Cl 
DO 100 I =1,3 
WRITE (4, 6§ sv(C1,I) 
100 CONTINUE 
ELSE IF (N .EQ. 2) THEN 
WRITE(4, 2) Cl 
WRITE(4,9) C2 
pO 120 I =1 
pO 110 J = 1,3 
WRITE(4,7) SV(C1,I), SV(C2,J) 
110 CONTINUE 
120 CONTINUE 
ELSE IF (N EQ. 3) THEN 


oNiEee0 ) 


? 


WRITE(4,9 
WRITE(4,9) C2 
WRITE(4,9) C3 
DO 150 I =1,3 
DO 140 J = 1 S, 
DO 130 K = 
WRITE (4, 8) ‘Sv(C1, r). svee2 3), SU(C3 5K) 
130 CONTINUE 
140 CONTINUE 
150 CONTINUE 
END IF 
6 FORMAT (Al) 
7 FORMAT 


2A1) 
8 FORMAT (Al,1X,A1l,1X,Al1) 
9 FORMAT (113 


a7. FORMAT(I4,1X,A9,1X,A1,1X,11,1X,A1,1XK,14 
SB lk iay ee 4, Tk, Al, Taga as ,A8) 


12 FORMAT (14, pla, aS, ix, Al, lpia sth Gg Al: ee 14, 1X, 


i, 


8,1X,14 Ty I4,1X,14, 1X, ALEX, ,Al, 1X, ROE, 


C i AOR Jey, 
250 STOP 
END 
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EXPASR FORTRAN 
THIS PROGRAM EXPANDS THE ASR INTO SINGLE LINE FORMAT 


PROGRAM EXPASR 
CHARACTER*3 MCC 


INTEGER GEN,COL,LTCOL,MAJ,CAPT,LT,WO,ASRNUM,GD 
INTEGER MOS (1: 39209). ,INMOS, /MOSNUM, BMOS, THSs 


DATA MOS / 9999%*0 


OPEN (UNIT = 1, FILE = 'FULL ASR A', 
OPEN (UNIT = 2, FILE = 'EXP ASR A', 
OrelecUNIT = 3, FILE = “BMOS Bl A', 


STATUS 
"STATUS 
STATUS 


‘OLD! ) 
'NEW! 
'OLD! 


READ IN THE MOS'S FROM BMOS Bl AND MAKE THE MOS ARRAY 
5 READ(3,6,END = 10) INMOS,MOSNUM 


MOS(INMOS) = MOSNUM 
GOTO 5 


READ IN A Rane FROM FULL ASR, BREAK INTO SEPARATE LINES 


10 READ(1,3 


,»END = 200) BMOS, MCC, GrilFcoL, LICoL, 
APT,LT, WO 


MAJ, 
S FORMAT (14,1X,A3,10X,14,2X,14, 2X, 14, 2K, 14, 2K, 


CHECK TO SEE THAT THE MOS IS A VALID ONE 


,14,2X,14 
IF (MOS(BMOS) .EQ. 0) GOTO 10 


MOS IS OK - CONVERT ASR LINE TO SINGLE LINE FORMAT 
ALSO CREATE MG ARRAY 


200 


TMOS = MOS(BMOS) 
IF (GEN .NE. 0) THEN 
an = 


WRITE (2,4) TMOS ,GD,MCC,GEN 
IF (COL .NE. 0) THEN 
GD = 6 
WRITE(2,4) TMOS,GD,MCC,COL 
END IF 
IF (LTCOL .NE. 0) THEN 
WRITE (2,4) TMOS ,GD ,MCC, LTCOL 
I 
IF (MAJ NE. 0) THEN 
WRITE(2,4) TMOS,GD,MCC, MAJ 
END IF 
IF (CAPT, .NE. 0) THEN 
WRITE(2,4) TMOS,GD,MCC, CAPT 
ND IF 
IF (LT_.NE. 0) THEN 
WRITE(2,4) TMOS,GD,MCC,LT 
ND IF 
TF (WO_.NE. 0) THEN 
WRITE(2,4) TMOS,GD,MCC,WO 
END IF 
GOTO 10 
FORMAT (T4,1X, 11 1X,A3,1X,14) 
FORMAT (1I4,1X,135 


SLOP 
END 


iis 


EXPC1 SAS 


*THIS PROGRAM PUTS THE Cl CARDS IN SINGLE LINE FORMAT; 
CMS FILEDEF FONE DIsSK@EeULE@ el) Cc; 
CMS FILEDEF FTWO DISK EXPCl FILE C(RECFM F 
LRECL 80 BLOCK 80; 

*READ IN THE Cl CARDS AND PUT IN SINGLE LINE FORMAT; 
DATA DONE; 

INFILE FONE ; 

INPUT MOS $ MCC $ GD ADJ $ QQ; 

ACT = see ee a) 

AMT = SUBSTR ADJ,2,4 ; 

DROP ADJ; 

FILE FTWO ; 

PUT MOS 1-4 MCC 6-8 GD 10 ACT 12 AMT 14-17; 
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ASORT SAS 


* THIS PROGRAM SORTS EXPASR INTO MOS GD MCC FORMAT; 
CMS FILEDEF FONE DISK EXP ASR A; 
CMS FILEDEF FTWO DISK SORTED ASR A(RECFM F 
LRECL 80 BLOCK 80; 
DATA DONE; 
oN CEE PONeE ; 
INPUT MOS L“4mGD 6 MCC)s G-207aMT S$ 12-15; 


FILE Fr TWO 
PUR MOS i- eA Gun6 MCC 6-10 ANT 1 2<15; 


T7 


CSORT SAS 


* THIS PROGRAM SORTS THE EXPCl1 FILE INTO MOS GD MCC FORMAT; 


CMS FILEDEF FONE DISK EXPC1 FILE A; 
CMS FILEDEF FIWO DISK EXP Cl A(RECEM F LRECL 80 "BLOCK 60) 


DATA DONE; 


INFILE FONE; 
INPUT MOS $'1-4 MCC $ 6-8 GD $ 10 ACT $ 12 AMT $ 14- 17; 


FTWO 
PUT iCs i- “4 MCC 6-8 GD 10 ACT 12 AMT 14-17; 
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ROLLCI FORTRAN 


THIS PROGRAM ROLLS UP ANY DUPLICATE Cl LINES 
mv fhe Cl FILE 
PROGRAM ROLLC1 
CHARACTER*1 CACT,PACT 
CHARACTER*3 CMCC,PMCC 
INTEGER CAMT, PAMT, FLAG , INMOS ,MOSNUM 
INTEGER CMOS , PHOS, ie ,PGD MOS (1: 9999) 


DATA MOS 2 

OPEN (UNIT = 1, FILE = 'EXP Cl A', STATUS = 'OLD') 
OPEN (UNIT = 2, FILE = ‘ROLLED Cl A‘, STATUS = 'NEW' ) 
ore ate =e pabLLe = “BMOS Bl A”, STATUS = 'OLD' ) 


READ IN THE eS FROM THE BMOS Bl AND MAKE THE MOS ARRAY 
DREAD 36 »END = 8) INMOS ,MOSNUM 
MOS(INMOS) = MOSNUM 
GOTO 5 


8 READ(1,3,END = 200) PMOS,PMCC,PGD,PACT,PAMT 
READ IN A LINE AND COMPARE IT WITH THE PREVIOUS LINE 
IF IT IS THE SAME, THEN ROLL UP THE TWO 
10 READ(1,3,END = 200) CMOS,CMCC,CGD,CACT,CAMT 
IF ((PMOS .EQ. ae .AND. (PGD .EQ. CGD) .AND. 
C PMCC .EQ. CMCC)) THEN 


PP OC CEAGY .NEGee SW meeND. (CACT NE. 'S')) THEN 
PAMT = PAMT + CAMT 

ELSE OF (PAChEENE. ‘S' <AND. CACT .EQ. 'S') THEN 
PAMT = PAMT - CAMT 


SE 
PAMT = CAMT - PAMT 


PMOS 


END 
200 IF (FLAG EQ. 1) T 
NTE (2) 3) MOS (PHOS) , PMCC,PGD, PACT, PAMT 


ND. TE 
WRITE(2,3) MOS(PMOS) ,PMCC,PGD, PACT, PAMT 
3 eae ae 1X, 11,1X,A1,,9%, 14) 
6 FORMAT(14,1X%,13 
STOP 


END 


He 


ye a 


ADJASR FORTRAN 


THIS PROGRAM MODIFIES THE ASR IN ACCORDANCE WITH 

THE INFORMATION CONTAINED IN THE Cl CARDS. 

THE Cl CARDS MAY ADD NEW ASR LINES, 

EFFECTIVELY ELIMINATE ASR LINES OR MODIFY THE NUMBER 
OF PERSONNEL FOR A PARTICULAR ASR LINE. 


PROGRAM ADJASR 
CHARACTER*1 CACT 
CHARACTER*3 CMCC,AMCC 
INTEGER CAMT,ASRAMT 
INTEGER AGD, CGD, CMOS , AMOS 


OPEN (UNIT = 1, FILE = 'ROLLED Cl A', STATUS = ‘OLD 
OPEN (UNIT = 2, FILE = 'SORTED ASR Al, STATUS = 'OL 
OPEN (UNIT = 4, FILE = ‘ADJUSTED ASR A', STATUS = ' 


10 READ(2,6, ,END = 200) AMOS ,AGD , AMCC, ASRAMT 
20 IF (CHOS / .EQ. AMOS) THEN 
eer aoe AGD) THEN 


) 
. CACT .EQ. 'E') ASRAMT = CAMT 
IF (CACT .EQ. 'A') ASRAMT = ASRAMT + CAMT 
IF (CACT .EQ. 'S') ASRAMT = ASRAMT = CAMT 
IF (ASRAMT .GT. 0) THEN 
aan a ,6) AMOS ,AGD,AMCC ,ASRAMT 
Eee ,5,END = 200) CMOS,CMCC,CGD,CACT,CAMT 


ELSE IF as -GT. AMCC) THEN 
WRITE(4,6) AMOS,AGD,AMCC,ASRAMT 
GOTO 10 


SE 
IF (CACT .NE. 'S' .AND. CAMT .NE. 0) THEN 
WRITE (4, ,6) CMOS,CGD,CMCC,CAMT 


END IF 
READ(1,5,END = 200) CMOS,CMCC,CGD,CACT,CAMT 
GOTO 20 


END IF 
Splys ia, 1h .9 ee -GT. AGD) THEN 


ce ,5,END = 300) CMOS , CMCC, CGD CAGE; CAMT 


WRITE(4,6) AMOS,AGD,AMCC,ASRAMT 
GOTO 10 
LSE 
READ(1,5,END = 200) CMOS,CMCC,CGD,CACT,CAMT 
GOTO 20 
END IF 


ELSE IF es .GT. AMOS) THEN 
WRITE(4,6) AMOS,AGD,AMCC,ASRAMT 
GOTO 10 


LSE 
READ(1,5,END = 200) CMOS,CMCC,CGD,CACT,CAMT 
GOTO 20 
END IF 
S I ee Oreo eo 
6 FORMAT i4,1X 11, 1x03, eee) 
200 STOF 
END 


1X,14) 


80 


NUMASR FORTRAN 


* THIS PROGRAM WILL NUMBER THE ASR AND GENERATE AN ARRAY 
* THAT POINTS TO EACH MOS/GRADE STARTING LINE 

PROGRAM NUMASR 

CHARACTER*3 MCC 

INTEGER BMOS ,CAP,ASRNUM,GD,PMOS ,PGD,MG(1:232,1:7) 


DATA MG / 1624*0 / 
'ADJUSTED ASR A', STATUS = 'OLD') 
'MG ARRAY A', STATUS = 'NEW') 


Oo 
ty 
reat 
a 
Hi 
HJ 
Te 
NO 
ery 
| 
tc 
res 
"ou i 


OPEN (UNIT Senile 'FINAL ASR A', STATUS = 'NEW') 
ASRNUM = 1 
PMOS = 0 


PGD = 
* READ IN A LINE FROM THE ASR AND NUMBER IT 
10 READ(1,4,END = 200) BMOS,GD,MCC,CAP 
IF (PMOS .NE. BMOS .OR. PGD .NE. GD) THEN 
stig (BMOS , GD) = ASRNUM 


E 
WRITE(3,5) ASRNUM,BMOS,GD,MCC,CAP 
ASRNUM = ASRNUM + 1 
PMOS = BMOS 
PGD = GD 
GOTO 10 
200 DO 205 I = 1,232 
WRITE(2,6) Mast, 1 )oWe(T,2),uG(T.3),MG(T,4), 
C MG(I,.5),MG(I,6) ,MG(I,7 
205 CONTINUE 
4 FORMAT(I4,1X,11,1X,A3,1X,14) 
S FORMAT(I4,1X,14,.1X,11,1X,A3,1X,1I4) 
6 FORMAT Tax ray a, a 1X 4, 1X, 14 1%,14) 
STO 


END 


8h 


E2SORT SAS 


* THIS PROGRAM NUMBERS AND SORTS THE E2 CARDS; 
* BY MOS,GD,MCC: 
CMS FILEDEF FONE DISK FULL E2 A 
CMS FILEDEF FTWO DISK SORT E2 a RECEM F LRECL 80 BLOCK 80; 
DATA DONE; 
RETAIN “E2NUM 0; 
INFILE FONE 
INPUT MOS $ 1-4 MCC $ 17-19 GD S$ 21-22 SAMT $ 24-27 
SPL $ 29 BOD $ 34-42 MAC $ 45-52; 
EZ2NUM + 1; 
PROC SORT; 
BY nos GD MCC SPL BOD MAC; 


SET DONE; 

FILE FTWO; 

PUT E2ZNUM 1=4 MOS 6-9 MCC 11-13)GD 15-6) sane > gece 
SPL $ 23 BOD Se25=sc5Mae 5S Beo-27- 
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BMIS FORTRAN 


i TiS PROGRAM ROLLS THE EZ FILE INTO BMIS SETS. 
* A BMIS IS ANY SET OF 
* E2 CARDS WITH THE SAME MOS,GD,MCC,SPL,BOD,& MAC. 
PROGRAM BMIS 
CHARACTER*1 SPL,TSPL 
CHARACTER*2 GD,TGD 
CHARACTER*3 MCC,TMCC 
CHARACTER*4 MOS,E2NUM,TMOS, TE2NUM, SAMT , TSAMT 
CHARACTER*8 MAC, TMAC 
CHARACTER*9 BOD,TBOD 


OPEN UNIT = =r oe 'SORT EZ A', STATUS = ca 
UNIT = 2, FILE 'BMIS E2 A!', STATUS = 'NEW' 


B 
READ (1, 3, END = 200) E2NUM,MOS,MCC,GD,SAMT,SPL,BOD,MAC 
TE2ZNUM = E2NUM 

5 


TMOS = MO 
TMCC = MCC 
TGD = GD 
TSAMT = SAMT 
TSPL = SPL 
TBOD = ae 
MAC = 


ag 
10 READ(1, 3 END = 200) E2NUM,MOS ,MCC,GD,SAMT,SPL,BOD,MAC 
* CHECK TO SEE IF THE TWO E2 LINES ARE IN THE SAME BMIS 
IF (TMOS coe MOS .AND. TMCC .EQ. MCC .AND. 
c IGD .EQ. oe ae Prono nfo: SPL .AND. 


G TBOD . ae 1 he MAC) THEN 
WRITE(2,4) TEONUM, TMOS , TNCC GD sali lsri, 
TBOD, TMAC, BNUM 
GOTO 10 
LSE 
WRITE(2,4) TE2NUM,TMOS,TMCC,TGD,TSAMT,TSPL, 
C TBOD, TMAC , BNUM 
BNUM = BNUM + 1 
TEZNUM = E2NUM 
TMOS = MOS 
iucc = MCC 
TGD = GD 
TSAMT = SAMT 
Bork = SPL 
TBOD = BOD 
TMAC = MAC 
GOTO 10 
END IF 


200 WRITE(2,4) TE2NUM,TMOS ,TMCC,TGD,TSAMT,TSPL, 
C TBOD, TMAC, BNUM 
3 Saat 1X,A4,1%, A3, 1X,A2,1X,A4,1X,A1,1X,A9,1X,A8) 


4 FORMAT(A4.1X,A4,1X.A3,1X,A2,1X,A4,1X,Al,1X,A9, 1X, 
fe Bod 14) 
STOP 
END 
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REND FORTRAN 
* THIS PROGRAM SPLITS THE E2 FILE INTO SPL'S 


* AND CONVERTS THE FORMAT 
PROGRAM REND 
CHARACTER*1 SPL 
CHARACTER*2 INGD 
CHARACTER*3 MCC 
CHARACTER*4 SAMT 
CHARACTER*8 MAC 
CHARACTER*9 BOD 
ana ate E2NUM, AMOS (1: 


9999), INMOS ,MOSNUM,GD,MOS ,BMIS 


ATA AMOS / 9999%0 / 

OPEN (UNIT = 1, FILE = 'BMIS EZ A‘, STATUS = ‘OLD! 
OPEN (UNIT = 2, SRDEBe=8 SPLZ B20 Fe siarls =a en 
OPEN (UNIT = 3, FILE = "SPL3 62°48, Siatus —3 en. 
OPEN (UNIT = 4, FILE = 'SPL4 E2 A', STATUS = 'NEW' 
OPEN (UNIT = 7, FILE = ‘SPL5 E2 A’, STATUS = 'NEW* 
OPEN (UNIT = 8, FILE = 'BMOS Bl A‘, STATUS = 'OLD' 

* READ IN THE MOS'S FROM BMOS Bl AND MAKE THE ARRAY 


5 READ (5,3, END = 10) INMOS ,MOSNUM 


AMOS (I NMOS) = 
G 


OTO 
ae eee (1,4,END = 


MOSNUM 
200) E2NUM,MOS ,MCC,INGD,SAMT,SPL, 
BMIS 


? a 


'03') THEN 


IF (INGD .EQ. 
GD = 3 


ELSE IF (INGD .EQ. '02') THEN 
ELSE IF (INGD .EQ. '04') THEN 
ELSE IF (INGD .EQ. '05') THEN 
ELSE IF (INGD .EQ. 'WO') THEN 
ELSE IF (INGD .EQ. '06') THEN 
END IF 

IF (SPL '2') THE 


D,MA eee 
ELSE IF oe Bi 1304 
WRITE(3,2) E N 


BESE aes ee E 
WRITE 


D MAC BMIS 


BOD, MAC,BHMIS 


LSE 
WRITE(7,2) hae pe Cyr MCC , GDy sali SEL, 


OD; MAC, BMIS 
END IF 
GOTO 10 


2 FORMAT(1I4,1X,14,1X,A3,1X,11,1X,A4,1X,A1,1X, 
1X,A2,1X,A4,1X,A1,1X%, 


C A9Y,1X,A8,1X,I4 
Bel ties ot Nant esone 


ae, ,145 
3 FORMAT(I4,1X,133 


200 STOP 
END 
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SPL .EQ. N 
WRITE (2,2) E2NUM MANOS (MOS) , MCC,GD,SAMT,SPL, 
UM * HOS (HOS) , MCC,GD,SAMT,SPL, 


0 HEN 
4,2) EZNUM, * AMOS (MOS) , MCC, GD Sani see, 


BMIX FORTRAN 


* THIS PROGRAM MERGES THE SPL2 E2 CARDS WITH THE ASR 
* SPL2 IS A REND FROM THE BMIS FILE 
i MG ARRAY IS A POINTER ARRAY INTO THE ASR DATA 


PROGRAM BMIX 

GhAReeLER~1 SPL, AP ,MCCl1 Cl C2,¢3 

CHARACTER*2 MCC2 

CHARACTER*3 EMCC,AMCC,TMCC(8000) 

CHARACTER*8 MAC 

CHARACTER*9 BOD 

INTEGER EMOS,AMOS ,TMOS(8000) ,EGD,AGD, SO neh 


INTEGER E2NUM, ASRNUM, oa , NUH (8000) , TCAP (8000 

INTEGER SAMT MG(1:2 1:7),N ,BMIS,F,HOLD 

DATA MG / 1624%0 / 

OPEN (UNIT = 1, FILE = 'SPL2 E2 A', STATUS = 'OLD' 
OPEN MUNIT = 2, FILE = "SPL3 E2 A’, STATUS = ‘OLD’ 
OPEN (UNIT = 3, FILE = 'SPL4 E2 A', STATUS = 'OLD' 
SPENeCUNDI = 4 FILE = "SPES E2 A"; STATUS = ‘OLD! 
OPEN (UNIT = 7, FILE = 'TOTAL MIX A', STATUS = aes 
OPEN (UNIT = 8, FILE = 'FINAL ASR A', STATUS = ‘OLD! 
OPEN (UNIT = 9, FILE = 'MG ARRAY A', STATUS = ‘OLD! 


OPEN (UNIT 10, FILE = 'UNUSED ASR ‘A, STATUS = 'NEW') 


I=0 
* READ DATA INTO MG ARRAY 
DO 8 N = 1,232 
READ(9,7,END = 10) MG(N, 1), NG (N, 2) ,MG(N, 3) , 
fe MG(N,4), MG(N,5),MG(N,6) ,MG(N,7) 
8 CONTINUE 


* READ ASR INTO AN ARRAY 
10 READ (8,2,END = 20) ASRNUM,AMOS,AGD,AMCC,CAP 


=I+l1 

ae ad = ASRNUM 
TMOS(I) = AMOS 
TGD(1) = AGD 
a = AMCC 
TCAP({I) = CAP 
GOTO 10 

20 HOLD = I 
i 1 


* READ IN ae AND DETERMINE WHAT STAR IT IS 
D 


0 900 F=1,4 
25 READ (F. a, END = 900) E2NUM,EMOS,EMCC,EGD,AP,SAMT,SPL, 
e BOD ,MAC,BMIS 
T Wc cnes.E GD) 


IF (I .EQ. 0) GOTO 25 
EMCG(1: 


2) 

nN 
it 

7 

= 

2) 

2) 

N 
-WNE 


IF (Cl ES ') THEN 
200 
ELSE IF (C2 .EQ. '*') THEN 
M :1) 


3 
Biome cs «EO. 2)? THEN 


GOTO 100 


EN 
* THIS IS THE NOSTAR SUBSECTION 
100 IF (THOS (7) .EQ. EMOS) THEN 
IF ae GD (1) Q. EGD) THEN 
F (THC Ger) EQ. EMCC) THEN 
F (AP .E A' .AND. TCAP(T) .GE. SAMT) THEN 
TCAP(I = Tcab(I) - SAMT 
WRITE (7,4) E2NUM,TNUM(I),EMOS,EGD,EMCC, 
; SAMT, SPL, BOD,BMIS 
ELSE 
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IF (reap .NE. 0) THEN 
WRITE(7 4)E2NUM, TNUM(I),EMOS,EGD,EMCC, 
TCAP(I),SPL,BOD,BMIS 
END IF 
MONS Oe) 
IF 
GOTO 25 
BLSE LF (THCC(T) .LT. EMCC) THEN 
= I+ 
IF (I .GT. HOLD) THEN 
GOTO 25 
GOTO 100 
END IF 
LSE 
GOTO 25 
ENDIF 
ELSE 1F_(TGD(T) .LT. EGD) THEN 
= + 
IF (I .GT. HOLD) THEN 
GOTO 25 


ENDIF ; 
ELSE IF _(TMOS(T) .LT. EMOS) THEN 
=I+ 
IF (I .GT. HOLD) THEN 
GOTO 25 


* THIS @2SsTHE TRESTAR SUBSECTION 
200 IF eee eee vey THEN 


IF (AB £0 'A' AND. re) .GE. SAMT) THEN 
TCAP(I)_ = TCA AP(T) = 
WRITE (7, 4) E2NUM ‘TNUM(Z), EMOS , GD, IMEC (1), 
e SAMT, SPL, BOD, BMIS 


LSE 
IF ae .NE. 0) THEN 


WRITE (7,4 E2NUM ,INUM(1T) EMOS;EGD, Sce(a, 
C TCAP(I), Srl BOD, BMIS 
END IF 
TCAP(I) = 
ENDIF 


I=TIT+1 
IF (I .GT. HOLD) THEN 
GOTO 25 
SE 
GOTO 200 
END IF 
ae peer? ~LT. EGD) THEN 
=I + 
IF (I .GT. HOLD) THEN 
GOTO 25 
GOTO 200 
END IF 
SE 
arty Z5 
END 
mae IF (TH0S(1) -LT. EMOS) THEN 
IF (I .GT. HOLD) THEN 
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GOTO 25 
E 


GOTO 200 
E re 
ELSE 
ee Zo 


300 IF (TMOS(T) EQ. EMOS) THEN 
a: EGD) THEN 
1:1) .EQ. MCCl) THEN 
AP ts 'A! .AND. TCAP(I) .GE. SAMT) THEN 
TCAP(I) = TCAP(I) - SAMT 
WRITE (7,4) E2NUM,TNUM(I),EMOS,EGD,TMCC(I), 
C SAMT,SPL,BOD,BMIS 


ESE 
Le rear .NE. 0) THEN 


WRITE(7,4)E2NUM,TNUM(I),EMOS,EGD,TMCC(I), 
C TCAP(I),SPL,BOD,BMIS 
END IF 
TEAC) = 0 
ENDIF 


T=. + L 
IF (I .GT. HOLD) THEN 
GOTO 25 
or 
GOTO 300 
END IF 
mat 2 ep teeh) tet) »LT. MCCl) THEN 
=I + 
IF (I .GT. HOLD) THEN 
GOTO 25 


GOTO 300 
Deir 
ESE 
GOTO. 25 


ENDIF 
ELSE IF (TGD(I) .LT. EGD) THEN 
I=I+1 
IF (I .GT. HOLD) THEN 
GOTO 25 


SE 
GOTO 25 
ENDIF 
pote ee .LT. EMOS) THEN 
= a 
Prater Gl. OLD) ] Pao 
GOTO 25 


GOTO 300 
END IF 
SE 
GOTO 25 
ENDIF 
jeinlis IS sTHE ONESTAR MIX SUBSECTION 
400 IF (TMOS(I) .EQ. EMOS) THEN 
IF (TGD(I) .—£Q. EGD) THEN 


Preece (1 )(ts2) .—O. MCC2) THEN 
IF (AP .EQ. 'A' .AND. TCAP(I) .GE. SAMT) THEN 
Mear(l) = TCAP(1) = SAMT 
WRITE (7,4) E2NUM,TNUM(I),EMOS,EGD,TMCC(I), 
SAMT,SPL,BOD,8MIS 


SE 
uel ea .NE. 0) THEN 


WRITE(7,4)E2NUM, TNUM(I) ,EMOS,EGD,TMCC(I), 
G TCAP(1I),SPL,BOD,BMIS 
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END IF 
TCAP(I) = 
ee 
I = 1 
1} é “GT. HOLD) THEN 
OTO 25 


LSE 
GOTO 400 


END IF 
ECae IF (TMCC(I)(1:2) .LT. MCC2) THEN 
=e 
IF (I .GT. HOLD) THEN 
GOTO 25 


ELSE 
GOTO 400 
D IF 
LSE 
GOTO 25 


ENDIF 
pias 3) tN) ~LT. EGD) THEN 
=I+ 
IF (I .GT. HOLD) THEN 
GOTO 25 


ENDIF 
es fo eee .LT. EMOS) THEN 
= I+ 
IF (I .GT. HOLD) THEN 
GOTO 25 


ELSE 
GOTO 400 
D IF 


900 SO. oT ON 
DO 910 = 1,HOL 
In}9 (reap(T)” THEN 
WRITE(10 ut {EOS gue) 
END IF 
910 CONTINUE 
2 aga a sens apan tap 
3 FORMAT(14,1X%,14,1%,83 14,11 14 sl toe ie ik, 
& AY ,1X,A8,1X,1I4 
4 ey 14,14,1%,14,1%,11,1K%,A3, ix Toe a, 


7 FORMAT (I4, Te. I4,1X,14,1X,14,1X,14,1X,14,1X,14) 


956 Saer 
END 
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MSORT SAS 


* THIS PROGRAM SORTS THE MIX RECORDS BY BOD; 
CMS FILEDEF FONE DISK TOTAL MIX A; 
CMS FILEDEF FTWO DISK SORT MIX A(RECEM F 
Peeel GO BLOCK 80- 
DATA DONE; 
INFILE FONE; 
INPUT E2NUM S$ 1-4 ASRNUM S$ 6-9 MOS 33 —_ 14 GD $ 16 
Mec 2 18-20 AMT S 22-24 SPL $ 2 
BOD 28-36 BMIS $ 38-41; 
PROC SORT; 
BY BOD; 
DATA _NULL_; 
SET DONE; 
FILE FTWO; 
PUT E2NUM 1-4 ASRNUM 6-9 MOS 11-14 GD 16 MCC 18-20 
AMT 22-24 SPL 26 BOD 28-36 BMIS 38-41; 
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DEMAND FORTRAN 


* PROGRAM TO MERGE El AND E2ASR MIX FILES 
PROGRAM DEMAND 
CHARACTER*1 UR,SEX,E 
CHARACTER*2 CGP, CGbA(DO), PGP, PGPA(20) 
CHARACTER*3 MCC 
CHARACTER*8 MAC,OT,OTA(20) 
CHARACTER*9 BODM,BODE,TBOD 
INTEGER MMOS, PRIA(20) 


INTEGER EMOS ,AMOS1 , AMOS2, PMA(20) ,AM1(20) ,AM2(20) 


INTEGER E2NUM, ASRNUM, E1NUM ,E1NA(20), AMT, SP 


LP 


INTEGER MATCH TCNE, 1, BMIS , JMOS /JM(20), GD ,GDA(20) ,F 


OPEN (UNIT = ih FILE 'GROUPE1 FILE A', 


STATUS = 'OLD') 


OPEN (UNIT = 2, FILE = 'SORT MIX A', STATUS = 'OLD') 
OPEN (UNIT = 7, FILE = 'SPL2 DEMAND A', STATUS = 'NEW' 
OPEN (UNIT = 8, FILE = 'SPL3 DEMAND A', STATUS = 'NEW' 
OPEN (UNIT = 9, FILE = 'SPL4 DEMAND A', STATUS = 'NEW! 
OPEN (UNIT = 10, FILE = 'SPL5 DEMAND A', STATUS = 'NEW') 
MATCH = 0 
TCNT = 
* READ aut SORT MIX VALUES 
AD (2,2,END = 200) E2NUM,ASRNUM,MCC,AMT,SPL, 
BODM, BMIS 
TBOD = BOD 
IF (SPL_. "20. 2) THEN 


ELSE IF (SPL . .EQ. 3) THEN 

ELSE LF (SPL .EQ. 4) THEN 

ELSE IF (SPL .EQ. 5) THEN 
F_= 10 


END “EE 

* READ IN El BOD AND COMPARE WITH SORT MIX BOD 

200) E1NUM,BODE,PRI,GD,EMOS,OT, 
AMOS1, AMOS2, JMOS, CGP, PGP 


20 tee (1,3,END 
25 VUE OOM ae BODE) THEN 


PRIA(TCNT) = PRI 
GDA(TCNT) = GD 
PMA(TCNT) = EMOS 
AM1(TCNT) = AMOS1 
AM2(TCNT) = AMOS2 
JM(TCNT) = JMOS 
CSEA(TCNT) = CGP 
PGPA(TCNT) = PGP 
OTA(TCNT) = OT 
EINA(TCNT) = E1NUM 
TCNT = TCNT + 1 
GOTO 20 
ELSE 
IF (MATCH .EQ. 1) THEN 
DO 30 I=1. TCNT-1 
WRITE CF 4) PMA(I) 
C PRI , ,OTA(1) SPL,AMT, JM 
C CGPA(I) ,PGPA(I),EINA(LI}, 
CONTINUE 


* READ IN SORT MIX DATA AND CHECK FOR MATCH 
* WITH PREVIOUS SORT MIX DATA 
aoe READ (2,2,END 
Ha (SEE Eee 2) THEN 
cae De .EQ. 3) THEN 
Hae ees .EQ. 4) THEN 


RUSE lhe or leo. se nnen 
F = 10 


f 
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= 200) E2NUM,ASRNUM, 
BO IS 


GDA(I) ,MCC,AM1(I),AM2(T), 
(I) ,BMIS, 
EZNUM, ASRNUM 


MCC AMT Srl, 


END IF 
IF (BODM EQ. TBOD) THEN 
DO 40 I TCNT 
WRITE (F 4s eMA(T), GDA(T), MCC,AM1(I),AM2(I), 


é , ,OTA(I),SPL,AMT,JM(1),BMIS, 
@ CGPA(I),PGPA(I),E1NA(I),E2NUM, ASRNUM 
40 CONTINUE 
GOTO 35 
ELSE 
TCNT = 1 
MATCH = 0 
TBOD = BODM 
GOTO 25 
END IF 
GOTO 20 
END IF 
END IF 


3 aa (I4RP AD, lke ny tl, 3k, 24,18,A88,1%,14, 1X, 
I /1X,14,14X, A2,1X,A2 
Z “FORMAT (14, pat oa Oks A3, UME ls) xe ee 1X,A9,1X,1I4) 


Several ie, 1X, 11,1X,A3,1X%,14,1X%,14,1X%,11,1%, AB, Tx; 
e mi IX ts Ex 0A 1k 4 1K A KAD, 1K, 14,,1X, 
C I4,1X,14 
200 STOP 
END 
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MMATCH FORTRAN 


C234567 

C THIS PROGRAM MAKES THE MATCHES FOR THE MOVERS 
PROGRAM MMATCH 
CHARACTER*3 PMCC,BMCC,CPM(8000) , CPMA(4000) 
CHARACTER*3 CPMC(4000$ ,CPMB(2000) , CTEMP (8000) 
CHARACTER*8 OT 
INTEGER OTP(1:8,0:20) ,PTR(0:232,0:6,0:8,1:2) 
INTEGER SPL,PRI.INVNUM,BMIS,CGP PGP’ 
INTEGER PM(1:8000,1: 38), 'PMA(1:4000,1: :8) ,PUB(1 :2000,1:8) 
INTEGER PTRA(0:232,0:6,0:8,1:2), PTRB(0:232,0: 6.0 eee. 1:2) 
INTEGER M1,MA1,MA2,TMOS ,TGD,TCGP,AMOS1 , AMOS2, JM 
INTEGER CDATA(0:26,0:8),J0,K,L,M,N,TEMP(1:4000, ie 93) 
INTEGER BMOS,BGD,BAM1,BAM2,AMT, BJMOS , BCGP 
INTEGER PTRC(0:232,0:6,0:8,1:2),PMC(1:4000,1:8) 
INTEGER MOS, MOSNUM,OCFC ,SOCEC ,OCHOS , SOCMOS , TNUM 
INTEGER 0€€(0:99,1:2) ,80CC(0:999,1:2),TOCC, TSOCC,I 
INTEGER R,0,QMOS TUF, PMOS,GD 
DATA PM,PMA,PMB / 64000*0.32000*0,16000*0 / 
DATA PTR,PTRA,PTRB / 29358%0, 29358*0 , 29358*0 / 
DATA TMOS,TGD,TCGP / 0, 0, 0 
DATA PTRC,PMC / 29358%0, 32000*0 / 
DATA occ,$o0cc / 200%0, 2000*0 
DATA TOCE,TSOCE .TNUM, _TSNUM / 0, 0, 0, 0 / 


DATA OTP 168* 
OPEN (UNIT = 1, FILE = 'MG FILE A', STATUS = 'OLD') 
OPEN (UNIT = 2, FILE = 'MG PAMOSI A', STATUS = 'OLD' 
OPEN (UNIT = 3, FILE = 'MG PAMOS2 A', STATUS = 'OLD' 
OPEN (UNIT = 4, FILE = 'UNSORTED MATCH A', STATUS = 'NEW') 
OPEN (UNIT = 7, FILE = 'SPL2 DEMAND A', STATUS = Seu 
OPEN (UNIT = 8, FILE = 'CGROUP DATA A', STATUS = 'OLD' 
OPEN (UNIT = 9, FILE = ‘OT PTR A', STARUS = “OrD’) 

N (UNIT = 10, FILE = ‘AMOS MG A', STATUS = 'OLD') 


OPE ak F 
C READ eae CGP MAPPING DATA INTO CDATA ARRAY 
READ(8- 135 AOaTE 10 SCHRAEY RaSN CRUEN Tc) coment a 
CDATA JS | 


I,4),CDATA(I,5),CDATA ,CDATA 
C CDATA(I,8 
5 CONTINUE 
c WRITE(6,*) 'CDATA(24,1) = ',CDATA(24,1) 
C THIS ROUTINE CREATES POINTERS INTO THE PMOS ARRAY FOR OCC FIELD AND 
C SUBOCGSEIELESMGSiEs 
OCFC = 100 
SOCFC = 10 


6 READ (8,15, END | = =!) MOS ,MOSNUM 
OCMOS = MOS/OCF 
SOCMOS = Mocveecee 
IF (OCMOS .NE. TOCC) THEN 
OCC (OCHOS .1) = MOSNUM 
occ(Tocc,2) = TNUM 
ToOCC = OCMOS 
END IF 
TNUM = MOSNUM 
IF (SOCMOS .NE. TSOCC) THEN 
Sd See ,1) = MOSNUM 
socc(TSocc,2) = TSNUM 
TSOCC = SOCMOS 
END IF 
TSNUM = MOSNUM 
GO TO 6 
7 occ(TOCC,2) = TNUM 
socc(TSOCC,2) = TSNUM 
C WRITE(6,*) 'TNUM = ', TNUM 
C READ IN THE er TYPE MOS'S 
he GL 1) GOTO 950 
O9I= QF 
READ(9,16) OTP(I,0),OTP(I,1),OTP £,2) ,OTE(T 
OTP(I.4) OTP(L.5).OTP(1,6),OTP(I 
C OTP(1,8),OTP(I.9) ,OTP(I, 10) ,OTP( 


c OFP(1, 12) OTR irs) ,OTP(1,14) ,OTP(1,15) 
9 CONTINUE 
e Peers) “OPEC G.2) = "TOLP(8,2) 
C Beaee PMOS MOVERS AND SET UP ARRAYS 
TMOS = 0 
TGD = 0 
TCGP = Q 
10 READ(1,11,END = 19) PMOS,GD,AMOS1,AMOS2,PMCC,JMOS, INVNUM, CGP 


I 


IF (PMOS .NE. TMOS .OR. GD .NE. TGD .OR. CGP .NE. TCGP) THEN 
EOS oe yce Deatane = I 
PTR(IMOS ,.TGD,TCGP,2) = I-1 


ty 
<4 
Hi 
NO 
niu 
A, 
<~ 
O 
op) 


PM(I,4 CGP 
CPM(I) = PMCC 
PM a AMOS1 


1, = 1 see 
WRITE(6,*%) 'M1 = ',M1 


e 
e foeth ‘i MOVERS AND SET UP ARRAY 


20 


TMOS = 0 

TGD = 0 

TCGP = 0 

READ(2,11,END = 25) PMOS,GD,AMOS1,AMOS2,PMCC,JMOS, INVNUM, CGP 

IF (PMOS .NE. TMOS .OR. GD .NE. TGD .OR. CGP .NE. TCGP) THEN 
Ba eet co ante. = 1 


PTRA(TMOS,TGD,TCGP,2) = I-1 

END IF 
PMA(I,1) = INVNUM 
PMA(I,2) = PMOS 
PMA(I,3) = GD 
PMA(I,4) = CGP 
CPMA(I) = PMCC 
PMA(I,6) = AMOS1 
PMA(I,7) = AMOS2 
PMA(I,8) = JMOS 
TNOS = PMOS 
ECDE=aGD 
BCG T= CGP 
iH 1 + I 
GOrro: 20 

25 MAL=I-1 

C READ IN PAMOS2 MOVERS AND SET UP ARRAY 

TMOS = 0 
rep = 
eer a0 

30 READ(3,11,END = 35) PMOS,GD,AMOS1,AMOS2, PMCC, JMOS, INVNUM, CGP 


DheceMOon Ne. £0o .0R. GD «NE. TGD -OR. CGP .NE. TCGP) THEN 
Se od aces = I 


PTRB(TMOS,TGD,TCGP,2) = I-1 
END IF 
PMB(I,1) = INVNUM 
FMB (lz) = PMOS 
PiSiGis) = GD 
PMB(I,4) = CGP 
GPs 2) = PMCC 
PMB(I,6) = AMOSi 
PMB(I,7) = AMOS2 
PMB(I,8) = JMOS 
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TMOS = PMOS 


TGD = GD 
TCGP = CGP 
T=fIt+i 
GO TO 30 

35 TaZee ba! 

c WRITE(6,*) 'MA2Z = ',MA2 
Cc Tee eds MOVERS IN AMOS ORDER AND SET UP ARRAY 

TMOS = 0 
TGD = 0 
TCGP = 0 

40 REE eee 11,END = 45) PMOS,GD,AMOS1 ,AMOS2,PMCC,JMOS , INVNUM, CGP 
IF (PMOS .NE. TMOS .OR. GD .NE. TGD .OR. CGP .NE. TCGP) THEN 

PIRC (ANOS! , aD; CGP. 1) =I 
PERC( TOS (Tep- TCGP, f5)) EI tod 

END IF 
PMC(I,1) = INVNUM 
PMC(I,2) = PMOS 
PMC(I,3) = GD 
PMC(I,4) = CGP 
CPMC(I) = PMCC 
PMC(I,6) = AMOSI1 
PMC(I,7) = AMOS2 
PMC(I,8) = JMOS 
TMOS = AMOS1 
TGD = GD 
TCGP = CGP 
ee at 
GO TO 40 

45 MA3 = ae 
WRITE(6,*) 'MA3 = ',MA3 


C READ IN DEMANDS AND MAKE MATCHES 


50 RE ee = 200) BMOS,BGD,BMCC,BAM1,BAM2,PRI,OT,SPL,AMT, 


Bde ee 


IF (PGP .EQ. 1) GOTO 6 
IF (PGP .EO. 2) GOTO 70 
IF (PGP .EO. 3) GOTO 80 
IF (PGP .EO. 4) GOTO 90 
IF PGP -EQ. 5) GOTO 50 
IF (PGP EQ. 6) GOTO 110 
C PMOS AND 2 AMOS - USE PTRB 
60 N= 0 
DO 62 J = 1,CDATA(BCGP,0) 


L = CDATA(BCGP, J) 
169 (PTRB(BMOS , BGD, L,1) .-NE. 0) THEN 
DO 64 K = PTRB(BMOS, BGD,L,1),PTRB(BMOS ,BGD,L,2) 


IF AES EQ. BAM] .AND. PMB(K, D EQ. BAM2) THEN 


"Satie N, 1) = PMB(K,1 
TEMP (N = PMB(K.2 
eTEMB (Nd = CPMB(K} 
END IF 
64 CONTINUE 


END. 
62 CONTINUE 
IF (N ane 0) THEN 


iL, 
WRITE(4,14) TEMP(I,1), TEMP(I,2),CTEMP(T), 
e BMCC,BMIS , PRI ,AMT 
66 CONTINUE 
END IF 


GO TO 50 
C PMOS AND 1 AMOS - USE PTRA 
70 Nase 
DO 72 J = 1,€DATA(BCGP,0) 
L = CDATA(BCGP 0) 
€ WRITE(6,*) 'PMOS AND AMOS! 


IF (PTRA (BIOS , BGD Ll) ab... O)) fn 
074K = PTRA(BMOS, BGD,L,1),PTRA(BMOS ,BGD,L,2) 
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IF (PMA (K, 6) .EQ. BAM] .OR. PMA(K,7) .EQ. BAM1) THEN 
=N + 
TEMP (N, 1) = PMA K, 1) 
TEMP(N,2) = PMA(K,3 
CTEMP(N) = CPMA(K) 
END IF 
74 CONTINUE 


END I 
72 CONTINUE 
IF (N .GT. 0) THEN 
07612 


=e 
WRITE(4,14) TEMP(I,1), TEMP(I,2),CTEMP(I), 
c BMCC, BMIS,PRI,AMT 
76 CONTINUE 


END IF 
GO TO 50 
@eeno>s ONLY - USE PIR 
80 N = 0 


DO 82 J=1 pn ME CGE 0) 
L = CDATA(BCGP, J 
199 ea eNOS ,BGD, eee eo) THEN 
PTR(BHOS,, BGD,L,1),PTR(BMOS,BGD,L,2) 


N=N¢ 

TEMP aN 13 = PM(K,1 
TEMP(N.2) = PM(K.2 
CTEMP(N) = CPM(K} 


84 CONTINUE 
END IF 
82 CONTINUE 
each e.Gl. ©) THEN 
Bowes, I 


= 1,N 
WRITE(4,14) TEMP(I,1), TEMP(I,2), CTEMP(T), 
c BCE elils, PR! AMT 
86 CONTINUE 
ENDL LE 


GO TO 50 
eeoee ELELD OR SUBOCC FIELD 
C HAVE SPEARATE PARTS FOR OCC FIELD AND SUBOCC 
c Be eo LOORe))) LOOr THROUGH THE MOS'S 
DO 92 J = 1,CDATA(BCGP,0O) 
L = CDATA(BCGP, J) 
TUF = BMOS - 1000 
IF (TUF .GE. 100) THEN 
DO 95 BMOS = SOCC(TUF,1),SOCC(TUF,2) 
IF (PTR(BMOS,BGD,L,1) .NE. 0) THEN 
DO 94 K = PTR(BHOS, BGD,L,1),PTR(BMOS,BGD,L,2) 


TEMP (WN, , = PM(K, 2 
TEMP(N.2) = PM(K,2 
CTEMP(N) = CPM(K} 
94 CONTINUE 


ENO 
S5 CONTINUE 
EESE 


DO 97 BMOS = OCC(TUF,1), Sesh 2) 
13 WLR GeuOS? ,BGD,L, 15 ° THEN 
= PTR(BMOS, BGD, L,1),PTR(BMOS ,BGD,L,2) 


N=N+t 1 

TEMP N, : = PM K,1) 
TEMP(N = PM(K.2 
SSeS = CPM(K} 

96 CONTINUE 

END IF 
97 CONTINUE 
END IF 


92 CONTINUE 
Dee viiemGo, ©) THEN 


Ores l = 1,N 
Waite (4,14) TEMP(E,1), TEMP(1,2), CTEMP(I), 


95 


e BMEGG VBMIS ,raigant 
98 CONTINUE 


END IF 
GO TO 50 
C OFFICER TYPE 
100 N= 0 
DO 102 J = 1,CDATA(BCGP,0) 
L = CDATA(BCGP,J) 
i rF (OTC Q) -EQ ay THEN 
DO 106 R = 1,0TP(0,0) 
Onos = OTP(O,R 
F (ee ONO ,BGD,L,1) .NE. 0) THEN 
DO, 10 K , PTR(QHOS, ,BGD,L,1),PTR(QMOS,BGD,L, 2) 
= + 
Ape oe = PM(K,1 
TEMP(N,2) = PM(K,2 
CTEMP(N) = CPM(K} 
104 CONTINUE 
END IF 
106 CONTINUE 


END IF 
105 CONTINUE 7 
102 CONTINUE 
Te (NeCi- se) ae 
DO 107 I = LN 
WRITE(4, 14) TEMP(I,1), TEMP(I,2), CIEMP(I), 


6 BEG, BMIS, PRI ,AMT 
107 CONTINUE 
END IF 


GO TO 50 
C AMOS ONLY 
c a a i ala INDEX ON THE AMOS1 FILE IN AMOS ORDER 


DO 112 J = 1, SE ION A? 0) 
L = CDATA (BC 
LF (DTRC (BAN, BGD,L pe Nee boat 
DO 114 K = PTRC(BAM1, BGD,L,1),PTRC(BAM1,BGD,L,2) 


N = 1 
TENP(N, 1) = PMC(K, 3) 
TEMP(N,2) = PMC(K 2 
CTEMP(N) = CPMC(K$ 
114 CONTINUE 


END IF 
112 CONTINUE 


1,N 
WRITE (4, 14) TEMP(I,1), TEMP (igi2)) ee emeMen : 
C EMCG, BMIS PRD ole 
Ti6 CONTINUE 
END IF 


GO TO SO 
11 FORMAT (24,1X,11,1%, 14, 1K, 14,3X,83,5X,14, 14,15 1X, 12) 
12 FORMAT (I4,1X,I1,1X,A3,1X,14,1X,14,1X,11,1X,A8,1X,11,1X, 
C I3,1X,I14,1X,14,1X.12,1X,12 
13 FORMAT (I1,1X,11,1X,11,1X,11,1X,11,1X,11,1X,11,1X,11,1X,11) 
14 FORMAT (I5,1X,11,.1X,A3,1X,A3,1X,14,1X,11,1X,13) 
15 FORMAT (14,1X,133 
16 FORMAT 14/18 (1%. 14)) 
200 STOP 
END 
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APPENDIX E 
FINAL PROCESSING PROGRAMS 


SHUFFLE SAS 


¢ this program sorts the match data by bmis and then; 
¢ by invnum for use by the solver; 
CMS FILEDEF FONE DISK UNSORTED MATCH A; 
Cis FILEDEF FITWO DISK BMIS MATCH A(RECFM 9 
lrecl 80 block 80; 
DATA DONE; 
INFILE FONE; 
PirUreinOiel=5 GD 5 7 PMCC S$ 9-11 BMCC $ 13-15 
bmis 17-20 PRI $ 22 SPL $ 24-26; 
PROC SORT; 


PUT INVNUN ioe Gh oe 7 ENCe ro. 9-1) BCC Seieas 
bmis 17-20 PRI $ 22 SPL $ 24-26; 


oH 


GRUN FORTRAN 


PROGRAM GRUN 

INTEGER CAPSUM,TINV, INVNOD(21100) , TBMIS 

INTEGER BMIS, INVNUM,PRI,AMT, TEMP 

CHARACTER*1 GD 

CHARACTER*3 PMCC,BMCC 

INTEGER IOD,IAD,M 

INTEGER IER, ISCALE,IPVT 

INTEGER NODSUM,MP1,N,IND,IHS,IBIG 

INTEGER MAXC,ISUP,MBIG, IPTG, LOUT 

INTEGER NNE, NNS, IPG,NAP, IWU,1 

INTEGER*2 T,P,D,1T,NSA,A 

INTEGER*4 A C ePex er utc 

DIMENSION H(9000$ 

DIMENSION CP(90003 , CPX 

DIMENSION D(3000) ,17 (9 

DIMENSION NSA(9000),IS 

DATA H,X,T,C,CP / 9000 

DATA INVNOD / 21100*0 
C PUT IN THE INVENTORY NODE DATA 

WRITE(6, a 'GETTING INVENTORY DATA! 

CAPSUM = 

TINV = 0 

NODSUM = 1 

10 READ(1,2,END = 15) INVNUM 

IF (INVNUM .NE. TINV) THEN 

H(NODSUM) = ! 


X(NODSUM) = 
WRITE(8, *) H(NoDsuM) X(NODSUM) 
CAPSUM = CAPSUM 
INVNOD(INUNUM) = *NopsuM 
NODSUM = NODSUM + 1 
END I 
TINV = INVNUM 
GOTO 10 


C I MAY LATER NEED TO ADD cegtaee SUPPLY NODE HERE TO HELP 
C MAKE THE SUPPLY AND DEMAND EQUAL 
15 TEMP = NODSUM 

aed A 'NODSUM CAPSUM' 

WRITE(6,*) NODSUM, CAPSUM 

NODSUM = NODSUM + 1 
C READ IN AND SET BMIS NODE DATA 

Ya (6,*) 'GETTING BMIS DATA! 


TBMIS = 0 
20 READ(2,3, END = 50) INVNUM,GD,PMCC,BMCC,BMIS,PRI,AMT 
Ta (BMIS. ~NE. zie THEN 


H(NODSUM) = 
X(NODSUM) = 0 AMT 
WRITE(8, o H(NODSUM) , BSE 
CAPSUM = CAPSUM - 
NODSUM = NODSUM + a 
END IF 
ae = INVNOD(INVNUM) 
C(N) = PRI 
CP(N 


)=1 
WRITE(9,4) T(N),C(N),CP(N) 
N=E=Ne#1 
TBMIS = BMIS 
GOTO 20 
C MAKE SUPPLY AND DEMAND EQUAL 
50 WRITE (6, z} 'NODSUM CAPSUM N! 
WRITE(6,*) NODSUM, CAPSUM,N 
IF (CAPSUM .LT. 0) THEN 
H(TEMP 1 
x (TEMP 1 - CAPSUM 
H NODSUM) =N 
X(NODSUM) = -1 
T(N) = TEMP 
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C(N) = 0 
CP(N) = 0 - CAPSUM 
H(NODSUM + 1) = N+ 1 
M = NODSUM - 1 
N=N-1 
ELSE IF (CAPSUM .GT. 0) THEN 
H TEMP } =] 
X(TEMP) = 1 
H NODSUM =N 
X(NODSUM) = 0 - CAPSUM 
T N} = TEMP 
c(N) = 0 
CP(N) = CAPSUM 
H(NODSUM + 1) =N#1 
M = NODSUM - 1 
No =uNo = 
ELSE 
H(NODSUM) = N 
M = NODSUM - 1 
N=N-1 
END IF 
C SET ALL OF THE STANDARD VALUES FOR GNET 
MP1 =M+1 
IND = MP1 
IAD = N 
IOD = IND 
IHS = 0 
IBIG = 1000000000 
MAXC = 0 
ISUP = -1 
MBIG = -1 
IOUT = 4 
NNE = -1 
NNS = -l 
IPG = -1 
NAP = -1 
IPTG = 3 
WRITE(6,*) ‘CALLING GNET' 
C CALL GNET 
C CALL GNETX(IND,IAD,IQD,M,H,T,C,CP,X,CPX,P,D,IT,U,NSA, ISA,A, IHS 
C 1 IBIG,MAXC, ISUP ,MBIG,NNE,NNS,IPG,NAP, IPTG, IOUT, IER, ISCALE, IPVT} 
C WRITE (8, 33 
C 59 FORMAT( ' I,X(I),P(I)! ) 
C O50 L = 1, 
C WRITE(8,8) I,X(1I),CPX(I),P(I) 
C 60 CONTINUE 
1 FORMAT(I4,2X,I3) 
2 FORMAT(I5$ 
3 FORMAT(I5,1X,A1,1X,A3,1X,A3,1X,14,1X,11,1X,13) 
4 FORMAT(IS5.2X,13,2X,13) 
8 FORMAT(1X, 12, 14,2X,14) 
200 STOP 
END 
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